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: 1 001 MODULE badinit( ZTITLE “foal ygeswedie Initialization Module’ 

; § OOe IDENT = ‘V04=000') = 

; i st : BEGIN 

: 2 sia : i senenneeencereceneeeeenereeereeerererertenerenerinenenntsnessnenenereenttnes 

Ps Mied ea 

; ? 0007 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
1; 8 0008 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; 10 i484 : = ALL RIGHTS RESERVED. ® 

Py H & 

: a 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 1 Borg 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

g. ¥ 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 18 pote ; ‘* TRANSFERRED. * 

3 ‘® ® 

; 18 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $9 pose : :° CORPORATION. * 

3 ‘® ® 

; $$ te} 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 2 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

>; 626 0024 1 !* * 

c. a 0025 1 !* * 

5 $$ pose 1 Vee e REAR REAAAARARAAAARA AAR AAREAER AAAS 

: 0027 1! 

; @& 0028 1! 

; 0029 1 !++ 

3 3 0030 1! fac 3 

3 1 0031 1 ! Facility: 

i me tts 1! 

oe 0033 1! Analyze/Media 

; 0034 1! 

.. 0035 1 ! Abstract: 

;. = 0036 1! : 

Se 0037 1! This module contains the procedures used to parse the Spamend Serine, 

i 2 0038 1! and allocate/initialize the control and storage structures which define 

; FF 0039 1! the device's analysis context. 

; 40 0040 1! 

. 0041 1 ! Environment: 

; «642 0042 1! 

F 3 00435 1! VAX/VMS User Mode, Non-Privileged 

: & 0044 1! 

: ¢& 0045 1 ! Author: 

>; 46 0046 1! 

:- OF 0047 1! Michael T. Rhodes, Creation Date: July, 1982 

: «6348 0048 1! 

: | «649 0049 1 ! Modified By: 

; &@ 0050 1! ; 

oo 0051 1! vO3-004 MTROOO9 Michael T. Rhodes = 3=Jul-1984 

; 2$ 8036 1! Fix precseuntas of /SHOW=BEFORE qualifier to obtain 

: 37 B227 ’ the correct SDBSF and generation of Listings. 

> a 0055 1! v03-003 mTROOO3 Michael T. Rhodes 11-Feb-1983 

; 2038 1! Add support for Stand Alone BAD. Routine ‘alloc_mem' 

5 oF 0057 1! has been changed to be a GLOBAL routine, renamed to 


Analyze/Media Initialization Module 


eB a we td st tt 


*bad$allo 
v03-002 MTROOO2 


c_mem’. 


1F:beomt9ge 25:57:49 yatedt ets 


Michael T. Rhodes 20-Jan-1983 


Use shared message BADVALUE instead of INVALNUM. 


v03-001 vege 


Michael T. Rhodes 15-Dec-1982 


he /LOG qualifier and the ke word PATTERN to the 
WEMERCISE qualifier. Several ROUTINEs have been added 
t these features: 


to “vB ad. 


d_ value’, 


*get_pattern', and ‘parse_value’ 
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Analyze/Media Initialization Module 18-sep-19 4 


3:37: 
Declarations 14-Sep-1984 $f:8f: 


0071 #1 MSBTTL Declarations’ 
073 1! Include Files: 


val_log_adr, 
val_phy_adr; 


07 ; 
ors REQUIRE ‘LibS:baddef'; ’ 
195 LIBRARY ‘SYSSLIBRARY:LIB'; : 
138 LIBRARY ‘"SYSSLIBRARY:TPAMAC'; : 
1 : 
} Table of Contents: 
FORWARD ROUTINE 
bad$alloc_mem : NOVALUE, : 
bad$init : NOVALUE, : 
addr_error, : 
bad_value, : 
count_term, ; 
get_mdbsf : NOVALUE, ' 
get_nit_sdbsf, ; 
get_pattern : NOVALUE, ! 
et_sdbsf : NOVALUE, ; 
nit_sdbsf : NOVALUE, ' 
parse_value : NOVALUE, : 
process_badblocks, ; 
rebuild_dbsfs : NOVALUE, ; 
recover_dbsfs, : 
syntax_err, 
! 


' 
Private Storage 
BIND 


after = $D PTOR 
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' 
ESCRI ("AFTER"), i 
bad_blocks =$DESCRIPTOR ("BAD BLOCKS"), i 
before = SDESCRIPTOR (‘BEFORE'), : 
command_Lin=S$DESCRIPTOR (‘S$LINE'), ' 
count = SDESCRIPTOR ("COUNT'). i 
cylinder = $DESCRIPTOR (*CYLINDER'), 
device =  SDESCRIPTOR ("DEVICE"), 
exercise = S$DESCRIPTOR (‘EXERCISE’), 
full = SDESCRIPTOR ("FULL"), 
keep = SDESCRIPTOR ("KEEP'). 
log = SDESCRIPTOR ('LOG') 
Logical_blk=$DESCRIPTOR (*LOGICAL_BLOCK'), 
mdbsf = SDESCRIPTOR ('MDBSF') 
output =  $DESCRIPTOR (*OUTPUT’S 
pattern = $DESCRIPTOR (*PATTERN'S 
prompt =  $DESCRIPTOR ("BAD BLOCKS = ‘), 
2 retry = SDESCRIPTOR ("RETRY'), 
2 sdbsf = SDESCRIPTOR ('SDBSF') 
2 sector =  $DESCRIPTOR ("SECTOR'S, 
: show qual = $DESCRIPTOR ('SHOW') 
é track = SDESCRIPTOR ("TRACK'S; 
2 ' 
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Define BAD’s structures. 
Define VMS structures. 
TPARSE macro definitions. 


Standard memory getter! ; 

Process the command Line qualifiers and init struc 
Handle address range errors. 

Bad numeric value error routine. 

Number of terms in euprees ten. 

Get a valid copy of the MDBSF. 


Get a valid copy of the SDBSF from a non last trac 


Process user supplied test pattern(s). 

Get a valid copy of the SDBSF. 

Initialize the header of the SDBSF. 

Parse and process bad block info. , 
Process user sveet tee bad block information. 
Rebuild the MDBSF and SDBSF. 

Attempt to rebuild/recover an SDBSF. 

Error action routine for TPARSE. 

Validate the user supllied logical address. 
Validate the user supplied physical address. 


! The List below contains the 

! strings used to parse the 

! command qualifiers and keywords. 
! Also, some of the strings are 

: used in the various messages 

! issued from the utility. 
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1 External references: 


1 EXTERNAL ROUTINE 
badS$Scheck_(tk 
bad$check nit 
bad$cvt_lfk_long 
bad$cvt_nilt_long 
bad$cvt_phy_log 
bad$prepare_report 
bad$produce_ report 
bad$sta_inif 
bad$str_trim 
bad$sync_io 
bad$validate_pack 
CHECKSUM2 


CLISGET_VALUE 
CLISPRESENT 
LIBSGET_INPUT 
LIBSTPARSE 


EXTERNAL 


Cc 


bad$gl"sectors, 
bad$gl_sector_siz, 
bad$gi_serialnum, 
bad$ql_status, 
bad$gb_term_count 


: ADDRESSING-MO 
: ADDRESSING-MODE (GENERAL): 


: ADDRESSING_MODE (GENERAL), 
: ADDRESSING-MODE (GENERAL). 
: ADDRESSING-MODE (GENERAL), 
: ADDRESSING-MODE (GENERAL), 
: ADDRESSING-MODE (GENERAL). 

ADDRESSING-MODE (GENERAL). 
: ADDRESSING-MODE (GENERAL), 


: WEAK 
: ADDRESSING_MODE (GENERAL), 


: ADDRESSING _MODE (GENERAL), 
: ADDRESSING"MODE (GENERAL), 


ADDRESSING_MODE (GENERAL), 
DE (GENERAL), 


: VECTOR C4, LONG], 
$ BYTE ’ 


$BBLOCK Cdsc$c_s_bln], 


: BITVECTOR (32), 7 

: VECTOR C2, LONG], 

: $BBLOCK, 

: SBBLOCK Cdsc$c_s_bln], 
: $BBLOCK [64], 


: SBBLOCK Cdsc$c_s_bin], 
: SBBLOCK Cdsc$c_s_bln], 


$BBLOCK, 
S$BBLOCK Cdsc$c_s_bln], 


: VECTOR (4, LONG); 
: REF SBBLOCK, 


: REF S$BBLOCK, 


: BYTE . 
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Check last track device for a user supplied entry. 
Check non last track device for a user supplied en 
Convert last track format to longwords. 

Convert non last track format to Longwords. 
Convert physical address to logical. 

Open the output file and generate report heading. 
Produce a Listing of the bad block file(s). 
Perform initialization for execution in the Stand 
Trim pot blanks 
Perform synchronous fo. 

Set Volume Valid bit in the UCB when executing Sta 
Compute block checksum. 

CLI call back routine. 

CLI cail back routine. 

Library input routine. 

Library State Table Parser. 


tabs, and carriage return fr 


Bad block information vector. 

Number of sectors per block. | 

Total number of bytes per cylinder. 

Total number of bytes per track. 

Channel number for device. } 

Address of command Line buffer descriptor. 
Global control context fogs. 

Number of cylinders on medium, 

Address vector of the data transfer buffers. 
Device characteristics. 

Class of the device. F 

Address of device name descriptor. 

Device name buffer. 

Size of device name. 

Device name descriptor. 

Address of filespec buffer descriptor. 

10 function code for $Q10. 

Address of the $GETDV! item List. 

Generic Mg <r descriptor. 

10 status blocks. 

Highest user addressable LBN on device. 
Address of the Manufacturers Detected Bad Sector F 
Disk address of the MDBSF. 

Number of 512 byte pages for 1 transfer. : 
Address of the Software Detected Bad Sector File. 
Pointer to the first available entry in the SDBSF. 
Number of sectors per track. 4 

Size of the physical sector on a drive. 

Pack serial number. 

Global status. : 

Number of terms used to describe bad block. 
Address of the Test Pattern Buffer. 

Number of tracks per cylinder. 

Number of bytes per transfer. 


<@ 


1 
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v04 Declarations 14-Sep-1984 254: DISKSVMSMASTER: (BAD.SRCJBADINIT.832;1 (2) 

1 : Define message codes... 

exten LITERA 
bad$_aligndisk, ! The cartridge is an alignment disk. 

' Failed to assign a channel. 

! Invalid keyword value. 

' The device is not block structured. 

! The device is not mounted foreign. 

! Device has revector caching enabled. 


' 

' 

' 

' 

' 

d ' 

pod? .getéy!. : fa e 
bad$_insvirmem, ! Insufficienc virtual memory. 
bad$_invalqual, ! Invalid qualifier. 
bad$_ivblknum, ! Invatid block number. é 
bad$_ivblkent, ! Misiing or invalid block entity. 
bad$_lststring, ! Used to List an ascid string. 
bad$_mdbsfcrupt, ! MDBSF is corrupt. 
bad$_mdusfrfail, ! Failed to read MDBSF. 
bad$_ncabadinfo, ! No bad block info. 
bad$_nooutqual, ! No /OUTPUT qualifier. 
bad$_rebldwarn, ! Failed to write enough new MDBSF and SDBSF files. 
bad$_sibsffull SDBSF is full 


PIR IPIPIPIIIM IY 8 et st et st et ot ot 
BSLIESRAVLSSELESLASLSESSELS 


bad$“sdbsfrfail; i Failed to read the SDBSF. 


‘ 
Macros: 
MACRO ; 
ef_tparse_ args = 
“BUILTIN AB; 
_— tparse_args = AP : REF $BBLOCK; 
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"State table definitions’ 


Functional Description: 


The state table provides the definition of legal grammar for the 
acceptance of bad block information. The legal forms of bad block 
information are: 


1. Lbn 

2. lbn:count 

3. sector.track.cylinder 

4. sector.track.cylinder:count 


Each of the elements may be specified in ~ of the 3 valid radices, 
OCTAL, DECIMAL, or HEXADECIMAL. Note that ANY of the elements may be 
of ANY radix, no restriction is imposed on the user rqquiring that the 
same radix be used for all terms. The default radix is DECIMAL. 


A simple action routine ‘‘count_term’ is called by TPARSE on our 

behalf. It increments a count of the number of terms processed and 
stores the values taken from the TPARSE control block at the location 
indicated by “‘bad$gl_bad_term C.bad$gb_term_count]"’, The count will 

later be used to convert the bad block information into either logical 
block number or in physical address form (plus a count value if included). 


An additional state table is also defined, which provides a simple 
parsies mechanism for numeric values. This is used by for parsing the 
eyword PATTERN's value(s). 


SINIT_STATE (state_tbl, key_tbl); 


(, 
( (number ) count_term), 
((syntax) 55; 


track_number), 
$ LAMBDA) 


( 
( 

( 

) 
(colon 
2" 
(TPAS_ 
); 
(blkend 

(TPAS_EOS, TPAS_EXIT), 
((syntax)5); 


(blkcnt, 


6 
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BADINIT Analyze/Media Initialization Module 15-Sep 4 VAX-11 Bliss-32 V4.0-7 7 
ivetitt State table definitions 14-Sep-1 71884 73 15 DISK SKSVMSMASTER: (BAD. sre BADINIT.832;1 fage (3) 
7 P 0393 ( (number) blkend, count_term), 
? 0394 ((syntax)5); 
78 0395 
79 PQ 38 SSTATE (track _number, 
80 P 039 (number),, count term), 
81 98 ((syntax) 55; 
8 99 
8 P0400 1 S$STATE (, 
84 P oh 2 (".", cylinder_number), 
85 186 ((syntax))); 
86 40 
87 P 0404 SSTATE (cylinder. number, 
88 P 0405 (({number)> colon. count _term), 
289 0406 ((syntax)5); 
90 040 ! 
91 040 : The following portion of the state table is shared to allow the parsing 
9 040 of integer numbers of various radices. 


nm 
oe 
oO 
rx 
- 


SINIT_STATE (number tbl, numkey_tbl); 
SSTATE (, 
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SS 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
8 1 
9 1 
ih 
0411 1 
Beis 1 
041 1 
0414 1 ((number) count_term), 
298 0415 1 ((bad_val55); 
$30 0416 1 
00 P 0417 1 SSTATE (number, 
301 © 0418 1 (TPAS_DECIMAL, TPAS_EXIT), 
302 0419 1 C'S"); 
303 0420 1 
Spe P 0421 1 SSTATE (, 
05 b 8358 1 ("d*, decnum), 
306 P 04 1 ('D*, decnum), 
07 P beSe 1 ("x', hexnum), 
08 P 0425 1 (*X', hexnum), 
309 P 0426 1 (‘o*, octnum) 
10 0427 1 i. octnum)); 
11 0428 1 
i e rh 44 1 SSTATE (octnunm, 
31 0430 1 (TPAS_OCTAL, TPAS_EXIT)); 
14 0431 1 
15 p Beas 1 $STATE (decnum 
16 0433 1 (TPAS_DECIMAL, TPAS_EXIT)); 
17 ek j 
18 P 0435 1 SSTATE (hexnum 
19 04.56 1 (TPAS_HEX, TPAS_EXIT)); 
20 4 4 
21 P 0438 1 S$STATE (bad_val, 
$8 P 0439 1 (TPAS_SYMBOL,, bad_value), 
2 P0440 1 (TPAS"STRING,, bad-value), 
24 P 0441 1 ( DA,. bad_value), 
25 P gee 1 (TPAS— ANY,. bad_value), 
26 P 044 1 (TPAS~ _E0S,. bad- value) 
e7 0444 +1 ds 
28 0445 1 
$3 P Beeg 1 $STATE (TAS af 
0 P 0447 1 (TPAS_SYMBOL., syaten. err), 
31 P 0448 1 (TPAS_ =P IRANG ee syntax_err), 
32 P 0449 1 (TPAS"LAMBDA,, syntax_err), 
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tialization Procedure 
ZSBTTL ‘bad$init -- Initialization Procedure’ 
GLOBAL ROUTINE bad$init : NOVALUE = 


1 
i Functional Description: 


Line. The device is validate 


Calling Sequence: 
bad$init (); 


Implicit Inputs: 
Pointers to control and data structures. 
Implicit Outputs: 


initialized. 


BEGIN 
bad$gl_context Cctx_v_init] = TRUE; 


! 
Initialize descriptors. 


CHSFILL (0, dsc$c_s_bln, bad$ga_filespec); 
bad$ga_comnd_line Casc$b_class] = dsc k_class_d; 
bad$ga_device Cdsc$b_class] = dsc$k_class_d; 
bad$ga_ input dese Cdsc$b_class] = dSc$k_class_d; 
bad$ga_filespec Cdsc$b_class] = dsc$k_class_d; 


IF bad$sta_init NEQ 0 

THEN bad$sta_init (); 

' 

Save the command Line and get the device spec. 
CLISGET_VALUE (command_Lin, bad$ga_comnd_line); 


IF bad$str_trim NEQ 0 
THEN bad$str_trim (bad$ga_comnd_Line); 


CLISGET_VALUE (device, bad$ga_device); 
IF bad$str_trim NEQ 0 ; 
THEN bad$str_trim (bad$ga_device); 


IF NOT (bad$gi_status = 
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This procedure processes the ed ag | specified/defaulted in the command 
and an 10 channel established. 
file is requested, it is opened at this time. 


If an output 


: Parse the command Line and 
! process/initialize structures. 


ALL of the global control and data structures have been allocated and 


Flag initialization phase. 


Command Line descriptor. 
Device name descriptor. 
Input line descriptor. 
Output file spec descriptor. 


! Are we executing Stand Alone or under VMS? — 
! Stand Alone -- perform required initialization. 


: Get a local copy of the command Line. 
! Trim the command Line if we are stand alone. 


Copy the device name, - 
! Trim the device specification if we are stand alon 


am 
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yOe-000 badSinit =-- Initialization Procedure 12780871384 $7:8,33 DISKSVMSMASTER: (BAD. SRC JBADINIT.B32; 1 . (4) 
95 P 0511 SGETDVIW (DEVNAM = bad$ga_device ! Get the device specifics. 
96 \¢ ITMLST = bad$ga_getdvi5) 
9 1 THEN ! If not obtainable -- STOP! 
eS pete SIGNAL_STOP (bad$_getdvi, 1, bad$ga_device, .bad$gl_status); 
400 0816 If .bad$gl_devclass NEQ dc$_disk ! Is this a valid device type? 
401 ba THEN ! If not <= STOP! 
3 Beis SIGNAL_STOP (bad$_devnotblk, 1, bad$ga_device); 
404 0520 If .bad$gl_devchar Cdev$v_rct] ! Revector cached device? 
405 0521 THEN ! If so, STOP, don't waste time 
rey Be ¢ SIGNAL_STOP (bad$_devrct, 1, bad$ga_device); ! essentially doing a NOP! 
408 0524 If NOT ,bad$gl_devchar Cdev$v_for] ! Device must be mounted /FOREIGN 
409 0525 AND bad$sta_init EQL 0 ! (while executing under VMS), 
410 05 § N : ! because we do not have enough 
oi] be 5 SIGNAL_STOP (bad$_devnotfor, 1, bad$ga_device); ! access privilege otherwise. 
a1 0529 3 IF NOT (bad$gl_ status = : 
414 P 0530 SASSIGN (DEVNAM = bad$ga_device, ! If no 10 channel, we must STOP! 
415 0531 3 CHAN = bad$gl_chan)) 
416 0236 § THEN : 
rth 4 O287 SIGNAL_STOP (bad$_assign, 1, bad$ga_device, .bad$gl_status); 
419 0535 IF bad$validate_pack NEQ 0 ! Are we executing Stand Alone? 
$30 0336 THEN bad$validate_pack (); ! Yes, set the Volume Valid bit in the UCB. 
$56 0538 bad$gq_devnam Cdsc$w_length] = .bad$ql_devnam; ! Build the device name descriptor. 
42 0539 bad$gq_devnam dsc$b_dt ype} = dsc$k_dtype_t; ! Data type is text. 
rs) Bere bad$gq_devnam Cdsc$b_class] = dsc$k_class_d; ! Dynamic descriptor. 
og? B2e bad$gq_devnam [dsc$a_pointer] = bad$ga_devnam; ! Buffer address. 
427 pec§ IF .bad$gl_maxblock GTR bad$k_nltmaxblk ! Is this a last track device? 
$58 0544 THEN 
429 0545 BEGIN 
430 0546 bad$gl_context Cctx_v_ltdevice] = TRUE; ! Default the device type to “‘last track’ 
431 0547 4 bad$gb_block_fact = (.bad$gl_tracks * ! Compute blocking factor. 
$36 0548 4 -bad$gl_cylinders * 
43 0549 ebad$gl_sectors) / 
434 0550 -bad$gl_maxblock; : 
435 551 bad$gl_mdbsf_ptr = .bad$gl_maxblock - ! Set beginning address of Last track. 
436 226 -bad$gl_sectors / 
437 55 “padspe btock fact; 
$38 Bee bad$gl_sector_siz = bad$k_ page size / .bad$gb_block_fact; ! Compute the sector size (in bytes). 
439 555 bad$gl“bytes_Etrk = .bad$gl_secfors * bate sector siz; ! Compute number of bytes per track. 
440 0556 bad$gl_bytes_cyl = .bad$gl_bytes_trk * .bad$gl_tracks; ' Compute number of bytes per cylinder. 
441 0557 bad$gi"trnsfr_cnt = MINU ({bad$gl_bytes_cyl, ! Select largest transfer value. 
44 0558 ad$k_max_xfer_cnt); 
44 0559 END 
444 3209 ELSE ’ 
rt p20) bad$gl_trnsfr_cnt = bad$k_max_xfer_cnt; ! Non Last track device, make large transfers. 
447 b868 bad$gl_pagcnt = .bad$gl_trnsfr_cnt / bad$k_page_size; ! Compute memory allocation size in pages. 
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lifiers 14-Sep-1984 11:54:2 DI 


TTL "Process qualifiers’ 


rocess qualifiers. 


This portion of the procedure sets/clears the various bits in the 
context bits according to the presence of the various qualifiers 
and keywords. 


The actual processing of the qualifiers/keywords will be performed 
selectively below. 


bad$gl_context (ctx_v_badblocks] = CLISPRESENT (bad_blocks); 
bad$gl_context ctx v_pxerg 1807 = CLISPRESENT (exercise); 
bad$gl_context ctx v_keep = CLISPRESENT 4 F 
bad$gl_context [ctx_v_logJ = CLISPRESENT ee ; 
bad$gl_context [ctx_v_output] = CLISPRESENT (output); 
bad$gl_context (ctx_v_retry] = CLISPRESENT (retry); 
bad$gl_context Cctx_v_show] = CLISPRESENT (show_qual); 


ND of generic qualifier/keyword processing... 
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/BAD BLOCKS 
pace lee 
CO eetalintctn 


If the device is a last track 4 oe TI a allocate the MDBSF and SDBSF 


buffers and attempt to obtain the MD 
track device, simply allocate the SDBSF buffer. 


(The SDBSF is only preserved if so directed by the KEEP keyword) 
ad$gl_context (ctx_v_ltdevice] 


BEGIN 
bad$Salloc_mem (bad$k_page size * 2, bad$ga_mdbsf); 
bad$ga sdbst = ,bad$ga_mdbsf + bad$k 


ger md sf ¢ 
, ND 


bad$alloc_mem (bad$k_page_size, bad$ga_sdbsf); 


a 
* Process individual qualifiers for specific actions. a 


ECT TRUE OF SET 


F. If the device is a non Last 


' Set default 10 function code. 


btain a valid copy of the MDBSF. 


! Allocate a single buffer. 


' Allocate the detected bad sector file buffers. 
_page_size; pogerete the buffers 
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00 14 ZSBTTL "Process /OUTPUT qualifier’ 

01 615 'e+ 

oe O18 ! 

0 1 ' Process /OUTPUT qualifier. 

504 0618 : 
505 0619 ' If requested get the file specified (or defaulted) by the user and 

506 0620 : the output file. The default specification of /SHOW=AFTER is also 

444 Be 1 set (just in case it wasn't specified in the command Line). 
509 06 : : The default is /NOOUTPUT. 

510 0624 ! 
rae be 5 Hoes 

ig $ C.badsgl context (ctx_v_outputJ]: 
51 06 BEGIN 
514 6 8 CLISGET_VALUE (output, bad$ga_filespec); ! Get the filespec if supplied. 

515 6 pedsorepere report Q; ! Open the e. 
218 6 ° bad$gl_context (ctx_v_show_after] = TRUE; ! Default to /SHOW=AFTER if it is not supplied. 
518 06 4 END; ! of /OUTPUT processing 

519 063 


SS 


— or 


1 
peavey 3 Analyze/Media ent] 9} tzetton Module 18-Sep-19 4 ae VAX-11 Bliss-32 v4. 
v04- Process /SHOW qualif 14-Sep-1984 11:54:2 Disk KSVMSMASTER: habe She BADINIT.832; 429 
6 : BSBTTL "Process /SHOW qualifier’ 
6 i 

: ° ? } Process /SHOW qualifier. 

$ 639 i This procedure processes the /SHOW qualifier which will produce the 

‘ ok } following actions: 

9 64 i 1. If /SHOW=BEFORE js specified the Listing. is produced from the 
530 64 : the current bad bloc ile(s) as they exist in our buffers. 

1 644 : The AFTER oye alif of ves context switch will be toggled by a 

¢ vit } call to CLISPRESEN 
534 064 i 2. it, /SHOW or, /SHOW=AFTER is specified the the context bit 
535 48 ! “show _after’’ will be set, resulting in the contents of jhe bad 
é se block file(s) being Listed at the conclusion of processing. 
538 0651 inn 
539 bees . -bodat context Cctx_v_show]]: 
540 065 ! If /SHOW is specified without /OUTPUT, 
541 0654 If NOT .bad$gl_context Cctx_v_output] ! then -- STOP! We do not have a valid 
e6¢ 0655 T ! output file to write the report to! 
st? pees SIGNAL STOP (bad$_nooutqual, 0, bad$_iststring, 1, bad$ga., comnd_line); 
545 0658 4 i (bad$gl_context Cctx_v_show_before] = CLISPRESENT | (before)) 
546 0659 3 THEN ! Should we produce a report before 
547 0660 4 BEGIN ! testing the media? If so, then 
548 0661 4 if jbadSol. bontens (fee _v_ltdevice] } ce ta a copy of the old SpBst. 
549 0662 4 THEN get bsf ( roduce the report, and toggle the 
550 0665 4 ELSE saSet Bb de Cctx_v_nlt_sdbsf] = get. nit Pedbst (); ! show_after context flaq. 
551 0664 4 IF jbadsalc context Cctx_v LEdvicél OR .bad gl=context Cctx_v_nlt_sdbsf) 
e2§ 0665 4 THEN d$produce_repor 
55 0666 4 bad$gl_context Cctx_v_show efter] = CLISPRESENT (after); 
ah ae 
226 +44 bad$gl_context Cctx_v_show_after] = TRUE; ! Otherwise the default is show_after. 
556 0671 2 END; ! of /SHOW processing 
559 0672 2 
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Process the KEEP keyword 14-Sep-1984 11:54:2 DISKSVMSMASTER: CBAD.SRCJBADINIT.B32;1 (8) 
673 ZSBTTL ‘Process the KEEP keyword’ 
ere gi 
676 ; Process the KEEP keyword ** ALWAYS PERFORMED **. 
O68 i This portion of the procedure will determine whether the contents of the 
698 old SDBSF should be preserved. 
O68 i The default is dependent on the EXERCISE context. If the context is 
06 ¢ ! to EXERCISE the device, the default is NOT to preserys the old SDBSF 
068 , contents. This allows the user to purge the allocation of user suppl ted 
Bees ' bad blocks from the SDBSF. IF the context is NOEXERCISE, then KEEP is 
685 ' mplicit (we must protect and preserve the contents of the SDBSF, since 
068 ! it would be too easy to blow away the SDBSF in this mode), resulting in a 
444 potentially useless piece of media (at least until it was analyzed again). 
0689 2 i-- 
0690 CALWAYS): 
0691 
069 BEGIN 
069 IF pbodsal content Cctx_v_keep] OR !' Should we preserve the old SDBSF? 
Bene 4 iin -bad$gl_context Cctx-v_exercise] AND NOT .bad$gi_context (ctx_v_show_before]) 
0696 ; IF .bad$gl_context Cctx_v_ltdevice] 
0697 THEN get sdbsf () ! Yes, obtain a valid copy of the SDBSF. 
bee tate get_nlt_sdbsf () ! Yes, obtain a valid copy of the non Last track SDB. 
3700 init_sdbsf (); ! No, create a new copy of the SDBSF. 
4404 2 END; ! of KEEP keyword processing 
0705 2 


1 
ero laly Analyze/Media Initialization Module 14. -Sep-1984 a: 7:4 VAX-11 Bliss-32 V age 
04- Process the /BAD_BLOCKS qualifier 14-Sep-1984 11:54:2 DISK $vNeH TER: chAbe she BADINIT.B32; 4 
93 704 ZSBTTL ‘Process the /BAD_BLOCKS qualifier’ 
en aie 
238 70% ! Process the /BAD_BLOCKS qualifier. 
$38 709 i This qualifier may have an associated set of bad block information. 
5 710 ! Any combination of the valid bad block information may be specified 
600 0711 : (in a comma seperated List, utilizing any combination of radix directives). 
601 Orig i The default radix is DECIMAL. 
ait baie Bad block information formats: 
oR? Ore ; none - If og ,jneut ts sperinye ovr he (00. BLOCKS 
! ua er, the u w rom e user 
pet ontS or the required laternstion: F 
609 0720 Lbn - Allocate a single block to the bad block file. 
611 8756 i Lbn: count - Allocate a range of cept i pyeus blocks starting 
ol¢ 8 Sz : at lbn to the bad block f 
614 O75¢ i sec.trk.cyl - Allocate a single physical sector to the bad 
e? of $ block file. 
617 $758 i sec.trk.cyl:count - Allocate a range of contigous physical sectors 
oi8 4494 to the bad block file. 
620 0731 i pepending on whether this is a last track or non last track device the bad 
621 tas ! block information will be saumerted to the required format and entered into 
os¢ ore ! the SDBSF, if it does not already exist in either the MDBSF or the SDBSF. 
853i O73 5 i 
625 0736 t.badsgl context Cctx_v_badblocks]): 
$59 $738 art 
oc8 3544 value_present; 
eS 0741 value “Bedéat = FALS SE; 
631 Bree waite padsgl. status = CLISGET_VALUE (bad_blocks, bad$ga. 5i"ptt desc) DO 
O36 07435 4 lotks have been specified 
63 0744 4 4 po present = TRUE; i = the command Line 
ox 0745 4 process. badblocks (); ! Process the oR ane “bad block set. 
BE 
ei ore8 og -value_present if peuls we prompt for the bad blocks? 
639 0750 4 BEGIN 
640 751 4 bad$gl_context Cctx_v_interactive) = ' Allow duplicate block messages to be displayed. 
661 28 ¢ WHILE Bad$gl_status ="LIBS$GET_INPUT (badéga. input_desc, prompt) 
ro 754 5 BEGIN ' Read a bad block set from the user. 
644 755 IF sbadtal ast status EQL RMS$_EOF ' Has ‘.. terminated the input? 
645 728 THEN EX] ' Yes == move on to the next phase. 
oe at ? process. Seoeetocks (); ' No, process the bad block set. 
648 759 ; END; : S 
649 760 bad$gl_ context Cctx_v_interactive] = FALSE; ! Disallow duplicate block messages beyond here. 
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END; 
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3: VAX=11 Bliss-32 V 17 

V04= Process /EXERCISE qualitier 14-Sep-1 tf th 38 DISKSVMSMASTER: chase She BADINIT.832; 429 (10) 
(3 654 764 2 RSBTTL "Process /EXERCISE qualifier’ 

: 655 Ores te - 

; 65 76 i 

; 65 076 i Process /EXERCISE qualifier. 

; 658 0768 i 

; 659 876 i If the device is supposed to be analyzed, then allocate the data 

; 4 grey and test pattern buffers. 

: 66 1464 i Check to see if the user requested a completion log of the number of 

3 er 148 bad blocks detected. 

: 665 0775 i If the user C188 tts) a test pattern, then obtain a copy of it (upto 

; 666 0776 i an OCTAWORD (128 bits) of pattern), which will be stored in the vector 

; oer 14a : *bad$gl_bad_term'. 

: 669 0779 i epee Cae eper a YY Rennes 

; 670 0780 2 i tee eee 

s 67) 0781 § i *** This MUST be the Last operat on per forned on the vector before tee 

; 67 24-14 i ee os to the driver, since the routine ‘bad$Sinit_buffers' *** 

s 67 0783 2! *** expects the vector to contain the user supplied test pattern! *** 

: or ore § RERAAERAAARAR EAE AAEE RAAT EE ARETE RAAT EAEEAAAAERAAREREREKKERKERHEE EE 

3; © 

3: 676 0786 2: The default is /NOEXERCISE. 

3; 677 0787 2: 

; 678 0788 2 i- 

; 679 0789 2 

3 ony Brey ¢ begat context (ctx_v_exercise]]: 

: 682 0792 3 bad$gl_context (ctx v_exercise full] = CLISPRESENT (full); {: Set/Clear the FULL context bit. 

; et 8737 3 bad$gl_context Cctx_v_nlt_sdbsfJ = true; ! A new/updated SDBSF will be written to the 
; os? 44) 4 a Ores Sontent Cctx_v_pattern] = CLISPRESENT (pattern)) ! Set/Clear the PATTERN context bit. 

; 687 fa24 ; get_pattern (); ! Process the user supplied test pattern(s). 
: 689 0799 3 bad$al loc ao ¢ f.basset pa gn * bad$k_page_size * 2, 

g 2 B800 H d$ga_bufadr ! Allocate the data buffers. 

: 69 80 bad$ga_bufadr [1] = .bad$ga_bufadr (0) + ! Seperate them into distinct entities. 

; 080 -bad$gl"pagcnt * 

; ey ba0s bad$k _page_size; 

: rt5 3 Bane bad$Salloc_mem (bad$k_page_size, bad$ga_tpb); ! Allocate the Test Pattern Buffer. 

; 698 0808 END; ‘of /EXERCISE processing 

; eee oH TES; ! of Specific Qualifier processing. 

: ai bai§ 3 bad$gl_context Cctx_v_init] = FALSE; ! Flag end of initialization phase. 

: 704 0814 1 END; |! Of GLOBAL ROUTINE bad$init 
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4154 
<<U.14-U.15>-2> 
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3576 
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ODF8 
0000+ 
102E 
0000+ 
ODF8 
0000+ 


99F8 
0000+ 
00000000v 
0000* 
ODF8 
0000* 


89F8 
0000+ 
00000000v 
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0425 
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24 VAX-11 8B 
14-Sep-1984 11: ‘ef £38 DISK XSVMGR 
00036 ; TPASTYPE 
U.30: -WORD 3576 
00038 ; TPASSUBEXP 
U.31: WORD <<U.7-U.31>-2> 
OOO3A ; TPASTY PE 
U. 32: »WORD 4142 
0003C ; TPASTARGET 
U.34: eWORD <<U.33-U.34>-2> 
0Q003E ; TPASTYPE 
0.35: -WORD 3576 
00040 UePassuBEXP 
U.36: .WORD <<U.7-U.36>=2> 
00042 + Acts! NDER a. 
00042 U DASTYPE 
U.37: eWORD +-26120 
00044 ; tBASsuee xP 
00046 UePASACTION 
U.39:  .LO <<COUNT_TERM=-U. 39>=4> 
0004A UF PASTARGET 
U.40: <<COLON-U.40>-2> 
0004C US PASTYPE 
0.41: WO 3576 
0004E ; TPASSUBEXP 
00050 NUMBER -TBL:: 0 
00050 ; TPASTYPE 
0.44: wo -30216 
00052 ; TPASSUBEXP 
0.45: wo <<U.3°U.45>-2> 
00054 ; TPASACTION 
0.46:  .LON <<COUNT_TERM-U.46>-4> 
00058 ; TPASTYPE 
U.47: WOR 3576 
0005A ; TPASSUBE XP 
U.49: .WOR <<U.48-U.49>-2> 
OOOSC ; NUMBER 
U.3: -—BLKB 0 
0005C ; TPASTYPE 
U.50: WORD 4595 
0005E ; TPASTARGET 
U.51: -WORD -1 
00060 ; TPASTYPE 
U.52: eWORD 1061 
00062 ; TPASTYPE 
U.53: WORD 4196 
00064 ; TPASTARGET 
U.55: eWORD <<U.54-U.55>-2> 
00066 + iPaSTyPE 


WO 
00068 s BASTARGET 
0006A ; TRASTYPE 
v. WORD 
0006C s TPASTARGET 


4164 
<<U.54°U.57>=2> 
4216 


TER: CBA. she BADINIT.B32; 1 


Pee Se Se we SH Se Be Se Se Se FH Se Se Se FH Se Se Seas Se ae Se ee Se Se Se Se SHS Se Se esae ae Se Se eeeres < 


oe 


2 
| BADINIT Analyze/Media Initiali arion Module at} 4 23: VAX-11 Bliss-32 V4.0-7 e 
v04-000 Process /EXERCISE qual Uifie -Sep-1984 7 3133 DISKSVMSMASTER: (BAD. sre BADINIT.B32;1 429 185 
U.60: WORD <<U.59-U.60>-2> 3 
1058 OO06E ; TPASTYPE 
U.61: WORD 4184 3 
rendinented 6 te Pe re 
62: P <CU.99"U.62>-2> Ps 
106F 00072 ;TPASTYPE 
U.65;  . 4207 : 
0000 00074 GER Day ce,shou. 680-2 
s : e < o a . >= > $ 
144F 00076 ; TPASTYPE 
U.66: WORD 5199 : 
0000* 00078 ; TPASTARGET 
U.67: .WORD <<U.64-U.67>-2> : 
0007A ;OCTNUM 
U.64: .BLKB 0 
15F4 QOO7A ; TPASTYPE 
U.68:  .WORD 5620 : 
FFFF OO007C ; TPASTARGET 
U.69: ~ WORD -1 é 
0007E 06 NUR 
U -BLKB 0 
15F3 OO07E pregervre 
0.70: 5619 : 
FFFF 00080 ; siPASTARGET - ‘ 
00082 ; en 
BLKB 0 
15F5 00082 ; TPASTYPE 
v. WORD 5621 : 
FFFF 00084 ; TPASTARGET 
v. 73: - WOR -1 3 
00086 ;BAD _VAL- 
U.48: .BLKB 0 
81F1 00086 TTPASTYPE 
v. 74: WORD -32271 : 
00000000 00088 ;TPASACTION 
0.75: | .LONG <<BAD_VALUE-U.75>=-4> 
81FO OO008C ;TPASTYPE 
U.76: WO 32272 
00000000vV OO08E ; TPASACTION 
U.77: _.LONG <<BAD_VALUE-U.77>-4> 
81F6 00092 ; TPASTYPE 
U.78: WORD -32266 
00000000V 00094 ; TPASACTION 
0.79: | .LONG <<BAD_VALUE-U.79>=4> 
81ED 00098 ; TPASTYPE 
U.80: «WORD 32275 
00000000vV 009A ; TPASACTION 
U.81:  _.LONG <<BAD_VALUE-U.81>-4> 
85F7 OO09E ; TPASTYPE 
U.82:  .WO 31241 
00000000V OO0A0 ; TPASACTION 
U.83:  .LONG <<BAD_VALUE-U.83>-4> 
OOOA4 ;SYNTAX 
U.7: -BLKB 0 
81F1 OOOAS ; TPASTYPE 
U.84: «WORD 32271 
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<<SYNTAX_ERR=U.85>=4> 
-32272 
<<SYNTAX_ERR=U.87>=4> 
-32266 
<<SYNTAX_ERR=U.89>=4> 
-32275 
<<SYNTAX_ERR=U.91>=4> 
=31241 
<<SYNTAX_ERR-U.93>=-4> 
-LIBSKEYOS,NOWRT, SHR, 


‘ 0 
00000 ; TPASKEYO 
U.1: BL 0 
00000 WUPKEY TOL: 5 p 
00000 ; TPASKEYO 
U.43: -—BLKB 0 
-PSECT S$PLITS,NOWRT,NOEXE,2 
54 46 41 00000 P.AAB: .ASCII \AFTER\ 
0000 -BLKB 3 
00000005 00008 P.AAA: .LONG 5 
00000000° 0000C -ADDRESS P.AAB 
44 41 42 00010 P.AAD: .ASCII \BAD_BLOCKS\ 
Q001A -BLKB 
QOO0000A QO001C P.AAC: .LONG "9 
00000000° 00020 ADDRESS P.AAD 
46 45 4&4 0024 P.AAF: .ASCII \BEFORE\ 
002A “BLKB 2 
00000006 0002C P.AAE: .LONG 6 
set sae 8 0 ADDRESS P.AAF 
49 4C 24 00 P.AAH SCII \SLINE\ 
0039 -BLKB 3 
00000008 00 ‘ P.AAG: .LONG 5 
tae 04 ADDRESS P.AAH 
55 4F 4&4 bee P.AAJ: nt} \COUNT\ 
008 0005 0004C P.AAI: .LONG 
? va 0 2? ADDRESS P.AAJ 
4C¢ 4 0054 P.AAL: .ASCII \CYLINDER\ 
008 0008 6 P.AAK: .LONG 8 
0 op?" 6 eADDRESS P.AAL 
56 45 4 064 P.AAN: .ASCII \DEVICE\ 
006A -—BLKB 2 


STER: (BAD. SRC JBADINIT.B32; 1 


PIC,1 


5° (15) 


Be Se Be Be Be Oe Oe Se Be Se Oe Se Se Se BH SH Se Se SH FH Se Se Se FH FE Se Se Oe Se Oe Oe SH Se Oe Oe HSE SH Se Se Be Se SHSs Se SH Se Se HSH Se Se Se eeas 


—————__-------__— 
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oO 000 Preckees /EXERCISE qualifier 12-808-1 382 99:85:59 DI SKSVMEMASTER SCBA SRCSBADINIT.832:1 ° 185 
aed Po AA oO ORESS P.AAN : 
45 53 49 43 52 45 4 74 P.AAP: .ASCII \EXERCISE\ é 
68 $08 if P.AAO: .LONG 8 : 
2 000° eADDRESS P.AAP $ 
4C 4 4 P.AAR: .ASCII] \FULLN : 
4 4 P.AAQ: .LONG 4 : 
0000000' ‘ ADDRESS P.AAR : 
50 45 45 46 090 P.AAT: .ASCII \KEEP\ 3 
00000004 00094 P.AAS: .LONG 4 : 
00000000' 00098 ADDRESS P.AAT : 
47 GF 4C Boer P.AAV: .ASCII \LOG\ é 
O09F -BLKB 1 
4b OOAC P.AAU: .LONG 3 s 
00000000" O00A4 ADDRESS P.AAV : 
4B 43 GF 4C 42 SF 4C 41 #43 49 G7 GF 4C QOA8 P.AAX: .ASCII \LOGICAL_BLOCK\ s 
Bee -BLKB 3 
944444 00B8 P.AAW: .LONG 13 3 
0000000° 000BC ADDRESS P.AAX : 
46 53 42 44 4D OQO0CO P.AAZ: .ASCII \MDBSF\ : 
Bpoce -BLKB 
00000005 O00C8 P.AAY: .LONG 3 
00000000" OOOCC ADDRESS P.AAZ 3 
54 55 50 54 55 4F 00000 P.ABB: .ASCII \OUTPUT\ : 
00006 -BLKB 2 
00000006 00008 P.ABA: .LONG 6 5 
00000000' 82006 ADDRESS P.ABB 3 
4E 52 45 54 54 41 50 OOEO P.ABD: .ASCII \PATTERN\ $ 
000E7 -BLKB 1 
00000007 OOOE8 P.ABC: .LONG 7 3 
00000000° OOOEC ADDRESS P.ABD $ 
20 3D 20 53 4B 43 4F 4C 42 SF 44 41 42 OOOFO P.ABF: .ASCII \BAD_BLOCKS = \ F 
OOOFD -BLKB 3 
0000000D 00100 P.ABE: .LONG' 13 g 
sa tte 9 00104 ADDRESS P.ABF 3 
59 52 54 4&4 52 00108 P.ABH: .ASCII \RETRY\ : 
00100 -—BLKB 3 
00000005 00110 P.ABG: .LONG 5 3 
sae * a's 00114 ADDRESS ca : 
46 53 42 44 Bite P.ABJ rot y \SDBSF\ Z 
00000005 00120 P.ABI: .LONG 5 
et es 0124 eADDRESS P.ABJ ; 
52 4F 54 43 4& 3 8 P.ABL rey  ieeade ; 
0000000 3 5 P.ABK: .LONG 6 3 
00000000' 1 eADDRESS P.ABL é 
57 4F 4 1 P.ABN eASCII \SHOW\ j 
44s 4 13C P. -LONG 4 3 
0090 29" 140 eADDRESS P.ABN 3 
4B 43 41 a149 P. ABP: at y \TRACK\ : 
00000088 19f P.ABO: .LONG H 3 
00000000" 0015 ADDRESS P.ABP 3 


AF TER= P.AAA 
BAD _BLOCKS= P.AAC 
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BADINIT Analyze/Media Initiali orton Module 4.58 $1984 23:37:4 VAX-11 5 
v04-000 Process /EXE eRcl SE qualitie 12-Sep-1984 ij af 38 DISK$V men mASTERSCO e TBAB. OSRCIBADINIT. B32; 'y 9 483 
BEFORE= P.AAE 
COMMAND _LIN= P.AAG 
COUNT= P.AAI 
CYLINDER= P.AAK 
DEVICE= P.AAM 
EXERCISE= P.AAO 
FULL= P.AAQ 
KEEP= P.AAS 
LOG= «AAU 
LOGICAL_BLK= P.AAW 
MOBSF= ~ P.AAY 
OUTPUT= P.ABA 
PATTERN= P.ABC 
PROMPT= P.ABE 
RETRY= P.ABG 
SOBSF= P.ABI 
SECTOR= P.ABK 
SHOW QUAL= Sn 
CR= P.ABO 
-EXTRN ADSCHECK_LTK, BADSCHECK_NLT 
-EXTRN BADSCVT_LTK_ ONG 
-EXTRN BADSCVT— “ht LONG 


EX 

~EXTRN BADSCVT-P 0G 

«EXTRN BADSPREPARE-R REPORT 

-EXTRN BADSPRODUCE_REPO oT 

~EXTRN BADSSYNC_IO> CHECKSUM2 
eEXTRN CL IsceT T_VALUE, CLISPRESENT 
op ATR LIBSGET- INPUT, LIBSTPARSE 


ES"TRK 
“EXTRN BADS$GL~CHAN, BADSGA_COMND_LINE 
-EXTRN BADSGL-CONTEXT, BADSGL_CYCINDERS 
eEXTRN BADSGA_ =BUFADR *BADSGL _BEVCHAR 
[EXTRN BADSGL~ A 
*EXTRN BADSGA” Device: BADSGA_DEVNAM 
-EXTRN BADSGL-DEVNAM, BADSGQ~DEVNAM 
-EXTRN BADSGA~ FIL ESPEC 
-EXTRN BADS$GL~ “Fun BADSGA _GETDVI 


[EXTRN BAD$GQ~ 1088 “BADSGL BLOCK 

EXTRN BA BADSGC MDBSF PTR 
“EXTRN BADSGL~ PAGCN Nf, BADSGA_SDBSF 
“EXTRN BADSGL~ 

*EXTRN BADSGL =BECTORS, “Bansc_ SECTOR_SIZ 


-EXTRN BADSGL-SERIAL 
-EXTRN BADSGL— TR gg tae COUNT 
N 


EXTRN BADSGA~ TPB 
-EXTRN BADSGL”TRNSFR_C el. 
-EXTRN BADS$ STCIGND ISR BAD$_ASSIGN 


-EXTRN BADS"BADVALUE “BADS DEVNOTBLK 
-EXTRN BADS"DEVNOTFOR, BADS_DEVRCT 
“EXTRN BADS"GETDVI, BADE NSVIRMEM 


RN 
-EXTRN BADS"IVBLKENT, BADS CSTSTRING 
TRN BADS$ “MDBSE ERUPT 


<o | 
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700-000 Process, /EXERCISE qualifier Vea eeeT IRBs FFL :S8 | Pe thle teas bts sac Seapinsr.032:5°% ¢105 


-EXTRN BADS_MDBSFRFAIL 

-EXTRN BADS-NOBADINFO, BAD$_NOOUTQUAL 
SEXTRN BADS-REBLDWARN, BAD$~SDBSFFULL 
-EXTRN BADS~SDBSFRFAIL 

-EXTRN SYSSGETDVIW, SYSSASSIGN 

“WEAK BADSSTA_INIf, BADSSTR_TRIM 
“WEAK  BADSVALTDATE_PACK 


-PSECT SCODES,NOWRT,2 
OFFC 00000 eENTRY BADSINIT, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,-; 0456 


5B 000000006 00 9€ 90002 MOVAB CLISGET_VALUE, R11 : 
SA 00006 CF 9€ 9000 MOVAB BADS$GA_BEVICE, R10 : 
59 000000006 60 9€ 000g MOVAB LIBSSTOP, R9 : 
38 0000' CF 9E 0001 MOVAB BAD BLOCKS, R8 : 
57 000000006 00 9E OOO1A MOVAB CLISPRESENT, R7 : 
56 00006 CF 3 021 MOVAB BADSGL_CONTEXT, R6 : | 
66 10 88 00026 BISB2 #16, BADSGL_CONTEXT + 0482. 
00 6E nates 00 2¢ 90029 movCS #0, (SP), #0, #8, BADSGA_COMND_LINE + 0487 
00 a 00 2c 0003 MOVCS #0, (SP), #0, #8, BADSGA_DEVICE > 0488 
00 6E 00 2¢ $0039 MOVCS #0, (SP), #0, #8, BADSGA_INPUT_DESC + 0489 
00006 CF 003¢ : | 
00 6E 600 2c 0003F MOVCS #0, (SP), #0, #8, BADSGA_FILESPEC > 0490) 
00006 CF 0044 : 
00006 CF 02 90 00047 MOVB #2, BADSGA_COMND LINE#3 + 0491 
03 AA 0 90 0004C MOVB #2, BADSGADEVICE+ > 049 
00006 CF : 90 00050 MOVB #2, BADSGA~INPUT DESC+3 + 049 
0000G CF 02 90 00055 MOVB #2. BADSGAFILESPEC+3 0494 | 
50 00006 CF 3 0005A MOVAB BADSSTA_INIT, RO ; 0496 | 
05 13 0005F BEQL ; | 
00006 CF 00 FB 00061 CALLS #0, BADSSTA_INIT + 0497. 
00006 CF 9F 00066 1$: PUSHAB BADS$GA_COMND_LINE : 0502 
20 AB 9F OO06A PUSHAB COMMA N ; 
68 02 FB 0006D CALLS #2, CLISGET VALUE : 
50 00006 CF 9E 00070 MOVAB BADSSTR_TRIM, RO : 0503 | 
32 D4 00075 CLRL = R2 : | 
5 D3 0077 TSTL RO ; 
08 00079 BEQL 2$ : | 
52 D6 00078 INCL  R2 : | 
00006 CF 9F 0007D PUSHAB BADSGA_COMND_LINE + 0504 
00006 CF gt FB 0 1 CALLS #1, BADSSTR_TRIM ; 
A 0D 2$: PUSHL R16 : 0506 
50 AB OF 088 PUSHAB DEVICE : 
68 ; FB 00 CALLS #2, CLISGET_VALUE : 
07 E OOBE LBC —OséiR : 0507. 
A DD 00091 PUSHL : 0508 
00006 CF 1 FB 00093 CALLS #1, BADSSTR_TRIM : 
— 7C 0096 3$: CLRO 20. = (§P) : 0512 
7E 7C OOO9A CLRQ = (SP) : 
00006 CF 9F 0009 PUSHAB BAD$GA_GETDVI ; 
A pp OA PUSHL R10 : 
C OOOA CLRQ.  =(SP) : 
000000006 00 Q FB OOAG CALLS #8, SYS$GETDVIW : 
00006 CF DO OO0AB MOVL RO, BADSGL_STATUS : 
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BADINIT Analyze/Media Initialization Module 18-56 -1984 37:4 VAX-11 Bliss-32 V4.0-74 c B 
FOe 000 Process /EXERCISE qualifier eae er aes Fer se Wed GAAS tens cUAb sacSeapsmit.032:4°7* 105 V 
11 50 €8 0008 BLBS ~=s._-«aRO, 4$ : : 
00006 ct DD O83 PUSHL BADSGL_STATUS + 0514 ; 
A DD 0008 PUSHL R10 : ; 
1 DD 00089 PUSHL #1 : ; 
000000006 8F DD OBB PUSHL #BAD$_GETDVI ; ; 
69 4 FB O¢ CALLS #4, LIB$STOP : ; 
01 00006 CF D1 000C4 4$: CMPL BADSGL_DEVCLASS, #1 ; 0516 ; 
D 13 o¢9 BEQL 5 ; : 
A od 000¢B PUSHL R10 + 0518 : 
1 DD 000CD PUSHL #1 : | ; 
000000006 8F DD O00CF PUSHL #BADS DEVNOTBLK : ; 
69 3 FB 4 CALLS #3, LIBSSTOP : : 
D 00006 cf E DB 5$: LBC BADSGL_DEVCHAR+1, 6$ : 0520 ; 
A DD 6 62D PUSHL R10 + 0522 | ; 
or DD OO0DF PUSHL #1 ; | : 
000000006 8F DD 000E1 PUSHL #BAD$_DEVRCT : | : 
69 03 FB 000E7 CALLS #3, LIBS$STOP : | ; 
14 00006 CF EB OOOEA 6$ BLBS § BADSGL_DEVCHAR+3, 7$ + 0524 | F 
50 00006 CF : OOOEF MOVAB BADSSTA. INIT, RO + 0525. ; 
Od 12 O00F4 NEQ $ : | ; 
5A DD 9006 PUSHL R10 + 0527. F 
01 DD OOOF PUSHL #1 3 3 
000000006 8F DD OOOFA PUSHL #BADS DEVNOTFOR : ; 
69 03 FB 00100 CALLS #3, LYBS$STOP : 3 
7E 7C 00103 7$ CLRO se : 0531 F 
00006 CF 9F 00105 PUSHAB BADSGL_CHAN : | F 
5A DD 00109 PUSHL : | ; 
000000006 00 04 FB 0010B CALLS #4, SYSSASSIGN ; | : 
00006 CF 50 D0 00112 MOVL RO, BADSGL_STATUS : | ; 
1 50 €8 0011 BLBS RO. 8$ ; : 
0000G CF DD OO11A PUSHL BADSGL_STATUS : 0533. : 
5A DD OO11E PUSHL 1 : : 
01 DOD 00120 PUSHL #1 : | ; 
000000006 8F DD 00122 PUSHL  #BAD$_ASSIGN ; : 
69 04 FB 01 8 CALLS #4, LIB$STOP ; ; 
50 00006 CF 3 0128 8$ MOVAB BADSVALIDATE_PACK, RO : 0535) : 
05 13 00130 BEQL 69 ; : 
90006 CF 00 FB 901 ; CALLS #0, BADSVALIDATE_PACK ; 0536, ; 
0006 CF 00006 CF BO 00157 9$: MOV Bagsel DEVNAM, BAD$GQ_DEVNAM : B238 | : 
0000G CF 206 8F BO 001 t MOVW #526, BADSGQ_DEVNAM+ : 0539 | ; 
00006 CF 000G CF i 014 MOVAB BADS$GA_DEVNAM, BADSGQ_DEVNAM+4 : 0541 | : 
52 00006 cr DO 0014¢ MOVL § BADSGL~MAXBLOCK, R2 > 0543 ; 
00001000 = &F g Di Q19i cMPL R2, #4096 : | : 
01 Ab it a8 O15h BISB2 #1, BADSGL_CONTEXT+1 + 0546. : 
50 00006 CF 00006 CF C5 0015E MULL3 BADSGL_CYLINDERS, BADSGL_TRACKS, RO : 0548 | : 
51 00006 CF DO 00166 MOVL.  BADSGLSECTORS, R1 > 0549 | ; 
20 1 C4 00168 MULL " : 3 
5 0 § ? 318 DIVL Re. RO, R3 ; 0550 | 3 
00006 CF 0 001 MOVE 3, BADSGB BLOCK FACT ; : 
20 00006 CF 9A 0017 MOVZBL BAO$GB_BLOCK_FACT, RO ; 0553. : 
50 1 5 C7 443 DIVL 2 RI, ; : 
00006 CF é cs 1 SUBL3 RO, R2, BADSGL_MDBSF_PTR : 0552. : 
00006 cr A 001 MOV ZBL BADSGB gLock FACT > 0554. : 
0000G cF 00000200 &F 0 C7 001 ’ DIVL3 RO, #572, BADSGL SECTOR SIZ ; | 3 
000G CF 1 900 G CF C3 019 MULL3 BADSGL_SECTOR_SIZ, R1, GADSGL_BYTES_TRK : 0555, : 
000G CF 00006 (CF 0006 CF ¢5 00190 MULL3 BADSGL~TRACKS; BAOSGL.BYTES_TRK, - : 0556. : 
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Process /EXERCISE qualifier 14-Sep-1984 11:54:2 DISKSVMSMASTER:(BAD.SRCJBADINIT.B32;1 (10) V 
0 00006 CF 00 001A7 MOVL Ba Scr oBYTEScevE RO + 0557 
0000F E00 Ht: 9 D1 OIC CMPL 6 #65024 ait : ; 
1B 0018 BLEGU : ; 
50 FEOO 8F 3C 00185 MOVZWL #65024, RO : ; 
00006 CF : d6 1BA 10$:  MOVL RO, BADSGL_TRNSFR_CNT : | : 
1 1BF BRB 12$ + 0543 ; 
00006 CF FEO F 3¢ 101 11$: MOVZWL #63024 BAD$GL_TRNSFR_CNT + 0561. ; 
90006 CF 00006 CF 0000020 F C7? 001C8 12$:  DIVL3 #512, BADSGL_TRNSFR_CRT, BADSGL_PAGCNT + 0563 | ; 
8 DD 00104 PUSHL RB : 0577. ; 
67 gr FB 108 CALLS #1, CLISPRESENT : | : 
66 01 00 0 F 1D INSV RO, #0, #1, BADSGL_CONTEXT : | ; 
60 AB OF 001DE PUSHAB EXERCI§ : 0578 | ; 
67 Q1 FB O1E1 CALLS #1, CLISPRESENT : | 
66 01 02 0 FO 001E4 INSV RO, #2, #1, BADSGL_CONTEXT : 
78 AB OF OO1E9 PUSHAB kK ; 0579 
67 oI FB OO1EC CALLS #1, CLISPRESENT : 
66 01 06 0 FO OO1EF INSV RO, #6, #1, BADSGL_CONTEXT : | 
0084 CB 9F OO1F4 PUSHAB LO + 0580 | 
67 o1 FB OO1F8 CALLS #1, CLISPRESENT ; | 
66 01 07 0 FO 001FB INSV. RO. #7, #1, BADSGL_CONTEXT : 
00Bc C8 9F 00200 PUSHAB OU : 0581. 
67 01 FB 00 04 CALLS #1, CLISPRESENT ; 
Ab 01 01 50 £0 00207 INSV RO, #1, #1, BADSGL_CONTEXT+1 : 
00F4 CB 9F 0020D PUSHAB RETRY > 0582. 
67 01 FB 00211 CALLS #1, CLISPRESENT ; 
Ab 01 03 50 FO 00214 INSV RO, #3, #1, BADSGL_CONTEXT+1 : 
0120 CB 9F OO2TA PUSHAB SHOW QUAL t 0583) 
67 o1 FB OO21E CALLS #1, CLISPRESENT : 
Ab 01 04 0 FO 00221 INSV RO #4, #1, BADSGL_CONTEXT+1 : | 
00006 CF 21 D0 00227 MOVL #33, BADSGL FUNC : 0596, 
21 01 Ab £9 002 C BLBC _— BADSGL_CONTEXT+1, 13$ : 0597 | 
00006 cr F 00230 PUSHAB BADS$GA-MDBSF ; 0600 
7E 0400 8F 3C 00234 MOVZWL #1024, ~=(SP) ; 
0000v CF 02 FB 00 9 CALLS 2 BADSALLOC, MEM : 
00006 CF 00006 CF 00000200 &8F C1 E ADDL3 #512, BAD$SGA_MDBSF, BADSGA_SDBSF ; 0601 | 
0000v CF 00 FB 0024A CALLS #0, GET_MDBSF : 0602 | 
OE 11 0024F BRB 4§ ; 0597 
90006 F 9F 00251 13$: | PUSHAB BADSGA_SDBSF : 0605 | 
7E 020 F 3C 00255 MOVZWL #512, =(SP) : 
0000v CF é FB 0025A CALLS #2, BADSALLOC_MEM ; 
16 01 «AG Fl O25F 14%: BBC #1. BADSGL_CONTEXT+1, 15$ ; 0626. 
00006 CF 9F 00264 PUSHAB BADSGA_F ILESPEC > 0628 | 
00BC OF 96 68 PUSHAB OUTPUT : 
6B FB 0026C CALLS #2, CLISGET VALUE ; 
000000006 00 EB 0 of CALLS #0. BADSPREPARE REPORT ; 9629 
01 «Ab 0 8 0 6 BISB2 #32, BADSGL_CONTEXT+1 : 0630 
63 01 «AG 4 €1 0027A 15$: BBC #4, BADSGL_CONTEXT+1, 228 : 0652. 
17 01 Ab 1 £0 7F BBS #1. BADSGL~CONTEXT+1. 16$ > 0654 
00006 CF 9F PUSHAB BADS$GA_COMAD_LINE : 0656 
1 OD PUSHL #1 : 
000000006 8F ODD A PUSHL #BAD$_LSTSTRING ; 
E D4 CLRL. = (SP) ; 
000000006 Br DD PUSHL #BADS NOOUTQUAL : 
69 5 FB 0029 CALLS #5, LIBS$STOP ; 
10 AB 9F 00298 16$: PUSHAB BF FORE : 0658 
67 01 FB 0029E CALLS #1, CLISPRESENT ; 
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YO--000 Process /EXERCISE qualifier 14-Sep-1984 #73803 DISKSVMSMASTER: (BAD. SRC IBADINIT.832; 1°" 185, 
01 Ab 01 F Al INSV RO, #6, #1, BADSGL_CONTEXT+1 ; 
36 a A7 BLBC Osi AT . : | 
ab E9 OO2AA BLBC_ = BADSGL_CONTEXT+1, 17$ 5 0661, 
0000v re 5 CALLS #0, GET_SDBSF ; 0662. 
0000v 6 F B5 17$ CALLS 40, GET_NLT_SDBSF + 0663) 
01 AG 01 fF BA INSV RO, #7,7#1, BADSGL CONTEXT +1 geet 
Ab f CO 18$ BLBS BADSGL’CONTEXT+1, 19S 3; 0064 
Ag ; ca Ist ADSGL-CONTEXT#1 : 
000000006 00 00 FB 002C9 198 CALLS #0, BADSPRODUCE_REPORT 7 0665. 
EC AB OF 09 20$ PUSHAB 7 0666. 
67 o1 FB D CALLS #1, CLISPRESENT : | 
01 Ab 01 05 0 FO 00206 INSV RO, #5, #1, BADSGL_CONTEXT+1 : 
04 11 0020C BRB 2 : 0658 
01 Ab 0 88 02D 218 BISB2 #32, BADSGL_CONTEXT+1 ; 0669 
09 66 06 EO O02E? 228 BS #6, BADSGL_CONTEXT, 238 ; 0693 
17 46 EO O02E BBS #2, BADSGL-CONTEXT, 25$ ; 0694 
12 01 A 06 EQ 90 EA BBS #6, BADSGL~CONTEXT#+1, 25$ : | 
0 01 AG E9 OOZEF 23$:  BLBC_ BADSGL_CONTEXT+1, 246 ; 0696 
0000v CF 00 FB 002F3 CALLS #0, GET_SDBSF ; 0697 
OC 11 0028 BRB 6 ; | 
0000v CF 00 FB OO2FA 24%: CALLS 40, GET_NLT_SDBSF : 0698 
05 11 OOQFF RB ; 0696 
0000v CF 00 FB 00301 25$ CALLS #0, INIT_S ; 0700 
4F 66 £9 90306 6$ LBC ADSGL_CONTEXT, 31$ : 0736 | 
52 D4 00309 CLRL —- VALUE_PRES > 0741 | 
00006 CF 9F 0030B 27$:  PUSHAB BAD$GA_INPUT_DESC > 0742) 
58 OD poate PUSHL R8 ; 
68 02 FB 00311 CALLS #2, CLISGET_VALUE ; | 
00006 CF 50 DO 00314 MOVL RO, BADSGL STATUS ; 
OA 50 €9 00319 BLBC =_- RO, 28S : | 
52 01 DO 0031¢ MOVL #1, VALUE_PRESENT > 0744 
0000v CF 00 FB 003\F CALLS #0, PROCESS_BADBLOCKS > 0745 | 
€5 11 0524 BRB 7$ ; 0748 
2c 52 £8 00326 288:  BLBS VALUE PRESENT. 308 : 0748 | 
66 20 88 00329 BISB2 #32, BADSGL_CONTEXT : 0751, 
00E4 C8 9F 0032C 29$:  PUSHAB PROMPT > 0752 | 
00006 CF 9F 00330 PUSHAB BADSGA_INPUT_DESC ; | 
000000006 08 FB 00334 CALLS #2, LIBSGET_TNPUT ; 
00006 CF 2 DO 00338 MOVL RO, BADSGL_STATUS ; 
12 0 €9 00 40 BLBC =a ; 
0001827A_ 8F 00006 CF D4 : 43 CPL ADSGL_STATUS, #98938 : 0755 
0000v CF 09 FB 0 CALLS s PROCESS_BADBLOCKS ; 0757 
66 ; 8A 00 308: BICB2 i, BADSGL_ CONTEXT : 0760 
50 66 4 0358 31$: BBC #2, BADSGL_CONTEXT, 33$ ; 0790 
6C AS OF 0035C PUSHAB FULL : 0792 
67 QI FB O035F CALLS #1, CLISPRESENT ; 
66 01 03 0 FO 00 g INSV. RO. #3, #1, BADSGL_CONTEXT ; 
01 Ab 80 BF : 0 BISB2 #128, BADSGL_CONTERT+1 ; 0793 
ooce CB OF 00 PUSHAB PATTERN : 079 
67 &; : CALLS #1, CLISPRESENT ; 
01 Ab 01 ; 0 F 7 INSYV RO. #2, #1, BADSGL_CONTEXT#1 : 
0 9 E9 0037 LBC —_ RO, ; 
0000v CF FB 0037C CALLS #0, GET_PATTERN : 0797. 


i ne ee 
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0000G CF 9F 32$: PUSHAB $GA_BUFADR 3 0800 
7E 0 G CF A 3 ASHL rst BAD$GL PAGCNT, -(SP) : 8 99 
v CF é FB : CALLS ie. *BADSA LLC : | 
50 006 CF 7 9 ASHL BADSGL_P ABEN + 0803. 
00006 CF OO00GDF40 9E 00396 MOVAB asin$oa BUF ADR i, RO ADSGA _BUFADR+4 : | 
00006 cf 3 039 PUSHAB BAD$GA_TPB : 0806 
7E 0200 8F 3C 003A MOVZWL ast =(SP) ; 
0000v CF 02 FB OO3A CALLS BADSALLOC_MEM ; 
66 10 BA OO3AC 33$: BICB +b, BADS$GL_CONTEXT t 0812. 
04 OO3AF RET + 0814 


; Routine Size: 944 bytes, Routine Base: S$CODE$ + 0000 


; 705 0815 1 


am 
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bad$alloc_mem -- Allocate Memory 14-Sep-1984 11:54:2 DISKSVMSMASTER 
p86 1 ZSBTTL ‘bad$Salloc_mem <= Allocate Memory’ 
+9 : GLOBAL ROUTINE bad$alloc_mem (byte. count, return_address) : NOVALUE = 
O89 1/ 
bs : Functional Description: 
08 ¢ 1 This routine will allocate page(s) of memory. If an error occurs while 
be Z : } attempting to allocate the memory, the error will be signalled FATAL. 
0825 1 | Inputs: 
08 § 1! 
0856 ! } byte_count VALUE Number of bytes to allocate. 
0829 1 | Outputs: 
beso y | Cure 
0831 1! return_address ADDRESS Address of the location to store the 
oes : } beginning address of allocated memory. 
0854 i Side Effects: 
0836 1! If there is an error in allocating memory, this procedure will terminate 
0837 1! the analysis via a SIGNAL_STOP. 
0838 1! 
0839 1 !-- 
0840 2 BEGIN 
0841 2 MAP 
pets § return_address : REF S$BBLOCK; ! Point to return address. 
0844 2 LOCAL 
0845 2 addr_vec : VECTOR (2, LONG], 
bees § page_count; 
0848 2 IF (page_count = .byte_count / bad$k_page_size) LSS 1 
+e : THEN page_count = 1; 
P 0851 IF NOT (bad$gl_status = SEXPREG (PAGCNT = -Peeecount, 
+t) 3 RETADR = addr_vec)) ! Allocate the requested amount 
0853 2 THEN ! of storage. 
Baee § SIGNAL_STOP (bad$_insvirmem, 0, .bad$gl_status); 
bees § -return_address = .addr_vec [0]; 
0858 1 END; ! Of GLOBAL ROUTINE bad$alloc_mem 
-EXTRN SYSSEXPREG 
0000 00000 ENTRY BADSALLOC_MEM, Save nothing 
5E 08 Cs Bp te SUBL #8, SP 
50 04 AC 00000200 8F c 000 Dives #512, BYTE_COUNT, PAGE_COUNT 
03 14 0000 BGTR 
50 0 BR0) MOVL #1, PAGE_COUNT 
E 7C 00013 1$ CLRO = = (§P) 
08 af oF B65} PUSHAB ADDR_VEC 
50 DD 00018 PUSHL PAGE-COUNT 
000000006 00 04 FB OOOIA CALLS #4, SYSSEXPREG 


-74 Pa 9 
a BAD  SRCSBADINIT .832:1 #95 


; 0817 
> 0848 
> 0849 

0852 


cc 
i 


Wench eg a pO co ee es : | 


3 | 
| ap inty Analyze/Media Initialization Module Geskoctos o g738 VAX-11 Bliss-32 V4.0-74 page 30 BA 
_ V04 bad$alloc_mem -- Allocate Memory 14-Sep-1984 DISKSVMSMASTER: (Bab. SRC JBADINIT.B32;1 11) | 
| 00006 CF 20 dO 90021 MOVL RO, BADSGL_STATUS : 
1 0 E8 00026 BLBS ¥ ’ 
| 0000G CF DD 00029 PUSHL BADSGL STATUS ; 0854 
| 7E D4 00020 CLRL. 0 =(SP) : 
00000000G 8F DD 0002F PUSHL ag a 3 
| 000000006 00 3 FB 00035 CALLS #3, $STOP ; 
08 BC DO 0003C 28 MOVL ADDR. Atte SRETURN. ADDRESS 3 0856 
| 04 00040 RET ; 0858 


; Routine Size: 65 bytes, Routine Base: S$CODES + 0380 


; 750 0859 1 


-——: aacepenennenses ce SS iS SS 


iss-32 v4.0 


3 
BADINIT Analyze/Media Initialization Module 1-se 1984 23:37:4 X-11 Bliss-3 -74 Page 31 
‘¥02-000 : ; : 1382 49:87:58 SKSVMSMASTER- LOAD. SRCTBADINIT.832:1 . 13) 


VA 
get_mdbsf == Get a valid copy of the MDBSF 14-Sep- DI 


; Teg 0860 1 ZSBTTL ‘get_mdbsf -- Get a valid copy of the MDRBSF' 

ee 8 61 1 ROUTINE get_mdbsf : NOVALUE = 

> 756 B66 1 t+¢ 

: Fe Sr 4 | tencttonel Seccriptt 

3 ! Functional Description: 

: 585 865 1! 

: £38 94 ! Obtain a valid copy of the Manufacturer's Detected Bad Sector File. 

; 760 0868 1 ! Implicit Inputs: 

; 761 0869 1! 

; 7 0870 1! bad$ga_mdbsf the address of the MDBSF buffer. 

3; bBo. 1} bad$ga_sdbsf the address of the SDBSF buffer. 

3 ree bas : bad$gl_mdbsf_ptr the block number of the first block of the last track. 

> 766 0874 1°! Side Effects: 

3 for 0875 1! 

; 768 Bare 7 * If unable to read the MDBSF, we will recreate BOTH the MDBSF and SDBSF 

; 769 0877 1! ONLY if we are going to exercise the medium and the user specified NOKEEP. 

; a4 pare ; If he specified /EXERCISE=KEEP, we will abort the analysis. 

.. on 0880 1! If the request was something Like /NOEXERCISE /OUTPUT we will attempt to 

eo 0881 1! read a valid non last track format SDBSF. Failing this we will 

: 774 bees a. SIGNAL_STOP to inform the user of the situation. If we were successful 

; 775 08 1} in reading the non last track format SDBSF, we will convert the analysis 

3; 776 0884 1! context to non last track by clearing the fctx_v_ltdevice] context bit. 

3 ade base : } Thus allowing a Listing to be produced. 

3 6UfTy 0887 1! In order to be able to exercise the media or update the bad block file 

; 780 0888 1! the user must execute ANALYZE/MEDIA explicitly specifing /EXERCISE=NOKEEP. 

: 781 0889 1! This will convert the device to last track format and implies that the 

3 ree 94 : user knows that data will be lost and the bad block files will be rebuilt. 

3 0892 1 !-- 

; «785 0895 2 BEGIN 

; 0894 2 LOCAL 

: «787 0895 2 first_found, 

3: 788 0896 value_present; 

3; «789 0897 : ; 
; 790 0898 first_found = FALSE; ! Indicator for buffer = teu copes of MDBSF). 
; 791 0899 value prepent = FALSE; ! Indicate whether we found a valid MDBSF. 
: 298 0900 2 INCR Block FROM 0 TO 9 DO i Search the first 10 blocks of the 

; 0901 BEGIN ! last track for the MDBSF. Once found 
3 794 344 IF bad$gi_status = bad$sync_io (IF NO” .first_found ! a second copy is obtained to validate 
: 795 338 HER -bad$ga_mdbsf ! the contents (since no checksum is 

3; 796 904 ELSE -bad$ga_sdbsf, ' available). 

3 797 0905 bad$k_page_ size, 

: 798 0906 -bad$gl_mdBsf_ptr + .block) 

: 799 0907 N 

: 800 0908 4 BEGIN 

: 801 0909 4 IF NOT .first_found ! If this is the first time an MDBSF 

3 B08 eat 4 THEN ! was found, check that it is not full 
; 80 11 5 BEGIN i switch to second buffer for verfication. 
: 804 4 IF _.(.bad$ga_mdbsf + (bad$k_page_size - 4)) EQL -1 

; 805 tt THEN first_found = TRUE; ! Indicate that we found one. 

: 807 04 4 ELSE ? - 

; 808 916 5 BEGIN ! Validate the MDBSF copies, 


3 
| BADINIT Analyze/Media Initialization Module iS-se $1984 23:37:4 VAX-11 Bliss-32 V4.0-74 P 
y0L-000 get_mdbsf -- Get a valid copy of the MDBSF 12-861 98¢ #733758 DLSKSVMSMASTERSLDAD. SRCIBADINIT.B32;1° 9° (135 
; 809 917 IF CHSEQL (bad$k_page size, .bad$ga_mdbsf, ! they should be identical. 
; Bio ais codi pabe pines PbadSga sdbst.0)" 2s : 
; 811 91 THEN 
; B18 09 ? 3 tne t TRUE ' We h lid f the MDBSF 
; value _ present = ; : We have a va co of the ’ 
> 814 8 § g EXITLODP; ! go finish the validation of the 
5 Bi? 9 3 ! pack. 
; 816 0924 4 END; 
; 817 0925 END; 
HR RE bi: 
: 820 0928 2 IF NOT .value_present ! If we did not find a valid MDBSF, 
; 85 0929 THEN ! see if we can either rebuild a new 
; os¢ 0930 IF NOT recover_dbsfs () ' set of bad block flies or recover 
3 Be 0931 ! anon Lasttrack SDBSF. If we can't, 
; ase aa) SIGNAL_STOP (bad$_mdbsfrfail, 1, bad$ga_device);! then abort the analysis. 
; Hy 0934 hy ebad$gl_context Cctx_v_ltdevice] ! Did we recover a non last track SDBSF? 
; 899 0937 i : RETURN; ! Yes, bypass the pack validation. 
; 831 0939 Validate the pack... 
; 833 0941 if .bad$ga_mdbsf Cltk_w cartridge] EQLU ZxX'FFFF’ ! Assure that it's not an 
> 834 094 THEN ; ! alignment cartridge. 
; Ht Boe7 pon 8 O.STP (bad$_aligndisk, 1, bad$ga_device) 
: 837 0945 ! Has the header been corrrupted? 
; 838 0946 3 IF (.bad$ga_mdbsf Cltk_l_serial_nmumber] EQL 0) AND ! It should have a serial number 
; 839 0947 4 (.bad$ga_mdbsf Cltk_w_unused] NEQ 0) ! followed by a zero word, and the 
; 840 0948 ; ! cartridge id (O's-data packs, 1's-diag pack) 
: oe Baek IF .bad$gl_context Cctx_v_exercise] ! in the header. 
; Bc3 0991 : rebuild_dbsfs () ! Rebuild the MDBSF and SDBSF if we can. 
: Bes 095 : SIGNAL_STOP (bad$_mdbsfcrupt, 1, bad$ga_device); 
Od Bike. 
; 848 0956 1 END;  ! of ROUTINE get_mdbsf 


03FC 00000 GET_MDBSF : 


ORD 
59 0000G CF 9E 0000 MOVAB 
25 000000006 00 9€ 4 MOVAB 
5 0000G CF 3 0 MOVAB 
5 7C 0001 CLRQ 
4 D4 0001 LRL 
bg OgGDF eS F 17 18: PUSHAB 
7E 00 gf f 1¢ OVZWL 
04 $ E8 00021 BLBS 
6 DD 3 4 PUSHL 
4 11 00026 BRB 


Save R2,R3,R4,R5,R6,R7,R8,R9 
BADSGA DEV § 


ice. R 
BSSTOP, R 
BADSGA_MOBSF, R7 
VALUE PRESENT 
aBA $GL_MDBSF_PTRCBLOCK) 
#512, -TS 


FIRST_FOUND, 2 
BADSGR_MDBSf 


F 
BADINIT Analyze/Media Initialization Module 15-Sep-1984 23: VAX-11 Bliss-32 V 3 
‘whe get_ Ndbst =- Get a valid copy of the MDBSF 14-Sep eats vi 73 He: DISKSVMSMASTER: Ath she BADINIT.B32; ? 9 433 
00006 CF DD 00028 2s: PUSHL BADSGA SDBSt ; 
000000006 00 F ¢§ CALLS #3, BADSSY ; 303 
| 00006 iy D HOV RO, ADSEL "STATUS : 
| 5 § £8 000% BLAS ~—s FIRST FOUND, 48 : 0912 
30 67 D p E MOVL ADS SKM BSF, RO : 
FEFFFFFFE 86 BF O1FC C9 D1 60041 CMPL O8(R oes : 
1 if 004A BNEO $ : 
56 01 pO 0004c MOVL #1, FIRST_FOUND + 0913 
10 11 O004F BRB 5$ + 0909 | 
00006 oF 00 87 0200 iy <9 0051 4$ CMPCS #512, @BADSGA_MDBSF, @BADSGA_SDBSF : 0917, 
55 1 8 Spat MOVL #1, VALUE_PRESENT + 0921 
04 11 0005F BRB $ + 0920 | 
B2 54 09 F3 0061 5$: AOBLEQ #9, + 0900, 
15 5 €8 00065 6$: BLBS VALUE Lore SENT, 7$ : 0928 | 
0000v CF 00 FB 00068 CALLS RECOVER _DBSFS + 0930 
OD 0 € 90060 BLBS a! ; 
59 DD 00070 PUSHL : 0932 
01 DD 00072 PUSHL : 
000000006 8F DD 00074 PUSHL FGADS hp MDBSFRFAIL : 
68 03 FB 0007, CALLS $STO : 
39 00006 CF €E9 0007D 7$: BLBC BADSEL” “CONTEXTS, 11$ : 0934 
52 67 00 00082 MOVL § BADSGA-MDBSF + 0941 
FFFF 6 &F 06 A2 81 0008 CMPW 3s 6 (R2), “osess * : | 
OC 12 00088 BNEQ 8$ ; 
59 0D 00080 PUSHL 9 + 0943 
01 DD 0008F PUSHL #1 : 
000000006 8F DD 00091 PUSHL  #BAD$_ALIGNDISK ; 
1F 11 00097 BRB 10$ F 
62 D5 00099 8$: TSTL  (R2) + 0946 
1E Ne 000 BNEG 11$ F 
04 A2 B5 0009D TSTW 4 (R2) + 0947 
19 13 OOOA0 BEQL 118 : 
06 00006 CF 02 €1 000A2 C #2, BADSGL_CONTEXT, 9$ + 0949 
0000v CF 00 FB O00AS CALLS #0. REBUILB_DBSFS > 0951 
04 OAD RET ; 
59 DD OOOAE 9S: PUSHL R9 : 0953 
01 DD 00080 PUSHL #1 F 
000000006 8F DD 000B2 PUSHL wBADS MDBSF CRUPT : 
68 3 FB 000B8 10$: CALLS #3, LTBSSTOP 3 
04 00088 11$: + 0956 


; Routine Size: 188 bytes, Routine Base: S$CODE$ + 03F1 


; 849 0957 #1 


ae 


emer 7 es. a ae “ak wee. vee eee es 1 ee sae, ee tee wt = i 


3 
| BADINIT Analyze/Media Initialization Module 18 -sep-1984 $3: 3776 VAX-11 Bliss-32 ote os Page 3 B 
VO4 recover _dbsfs -- Attempt to rebuild/recover an 14-Sep-1984 11:54:2 DISKSVMSMASTER:(CBAD.SRCJBADINIT.832;1 (13) iV 
3 Hy 1 958 1 ZSBITL ‘recover_dbsfs -- Attempt to rebuild/recover an SDBSF' ; 
; § 959 1 ROUTINE recover_dbsfs = 3 
; 960 1 S44 3 
> 854 961 1! 3 
; TF a9 : } Functional Description: 3 
s Bey 964 1! A valid MDBSF was not found. Check to see if the analysis context : 
3 S28 Be? : will allow either of the following actions to be performed. : 
; 860 0967 1! 1. Attempt to rebuild both the MDBSF and the SDBSF if we are going to : 
; sd 844 : } exercise the medium and not save the old bad block data. F 
3 Be $990 7 2. Attempt to find the ‘‘old’’ non last track format SDBSF if the medium : 
; 864 0971 1! is not going to be exercised and only a Listing type of action 3 
; 865 34h 4 was requested. If successful, then we will change the context to : 
; 866 0975 1! non last track. $ 
; 867 0974 1! 3 
; 868 0975 1 ! Routine Value: 3 
; 869 0976 1! 3 
: 870 0977 1! TRUE If we were successful in rebuilding the MDBSF and SDBSF or ; 
; 871 0978 1! in locating the “‘old’’ format SDBSF and changing the analysis 3 
3 378 4464 ; } context to non Last track. 3 
; 874 0981 1! FALSE If we could not (for one of several reasons) rebuild the : 
; 875 0982 1! the bad block files. 3 
; 876 0983 1! 3 
; 877 0984 1 !-- : 
; 878 0985 BEGIN : 
3; 879 0986 LOCAL 3 
3 et 14 return_status; : 
; 882 0989 return_status = FALSE; ! Assume we can't rebuild the bad block files. : 
; 883 0990 -bad$gl_context Cctx_v_exercise] ! Check the context bits to see if we can 3 
; 884 0991 AND NOT .bad$gl_context (ctx_v_keep] ! attempt to rebuild them. : 
; 885 099 THEN : 
; 886 099 BEGIN : 
3; 887 0994 rebuild_dbsfs (); ! We can try ... 3 
; 888 0995 return_Status = TRUE; ! We have written them to the medium. : 
; 889 0996 3 
; 890 0997 E 3 
; 891 0998 N ! Otherwise, if we aren't exercising the 3 
; 89 0999 IF NOT eo context Cctx_v_exercise] ! medium and no attempt will be made to 3 
; 89 1000 AND NOT .bad$gT_context (ctx_V_badblocks] ! modify a non last track format SDBSF : 
3 B9¢ 190) THEN ! if one is found, then go look for one. 3 
3; 895 100 IF get_nit_sdbsf () 3 
; 896 100 THE 3 
; 897 1004 4 BEGIN 3 
; 898 1005 4 bad$gl_context (ctx v_ltdevice] = FALSE; ! Found one, change to context. : 
; 899 1006 4 return_status = TRUE; ' Set the status to allow us to continue. : 
; 901 1008 END; 3 
; 90 1009 : 
; 90 1010 RETURN .return_status; $ 
3; 904 1011 3 
: 905 1012 END; ! of ROUTINE recover_dbsfs : 


en Analyze/Media Initialization Module ep-1 3: VAX-11 Bliss=-32 V e 35 
hyaa recover _dbsfs == Attempt to cebul a/recever an 15-Sep-1984 7 te DISK KSVMSMASTER: chabe OC RCIBADINIT. 832;1 929 ae 
000C 00000 RECOVER_DBSFS: 
WORD Sav : 0959 
53 00006 cf 9E 9002 MOVAB BADScL “EOMTERT, R3 : 
3 D4 000 CLRL a TUS : 0989 
OF 63 6 E1 9909 BBC 8 BABSGL CONTEXT. 2s + 0990 
07 6 EO 0000D BBS , BADSGL-CONTEXT, 1$ : 1 
0000v CF 00 FB 00011 CALLS ; REBUILD_DBSFS © + 0994 
13° «11 0016 BRB : 0995 
12 65 0 E 901 1$: BBS BADS$GL CONTEXT, 4$ : 0999 
F 63 £ iC 2$: BLBS Basset CON TEXT + 1000 
0000v CF 00 FB O01F CALLS #0, GET_NLT_SD bésF + 1002 
07 0 E 00024 BLBC RO. 4$ ° : 
01 A3 1 8A 00027 BICB2 a, BADSGL_CONTEXT+1 : 1005) 
32 1 DO 00028 3$: MOVL RETURN” ST AUS + 1006 
5 2 DO O002E 4$: MOVL RETURN STATUS, + 1010 
04 00031 RET : 1012 


3; Routine Size: 50 bytes, Routine Base: S$CODE$ + O4AD 


; 906 1013 1 


BADINIT 
/VO4=000 


MARNIPNINPINININININ 2 2 2 2 tO OS OS OS 


WDODODOODODOOODODOOODDDODOOODOOOO 4 
WO VONOVEWN “OVO ONOUS WhO 


eeeerrcoseccss 


ooo 


ROUTINE rebuil 
'ee 


poet tyne = ot WRITELBLK; 


bad$ga_mdbsf 


' 

' 
bad$ga_ mdbs{ ite T_serTal_number) = Bad$gl_ serietnus = i; 
bad$ga_mdbsf : 


/Media Initialization Module 14.53 p-1984 f $3: g7'3 VAX-11 Bliss-32 V 
_dbsfs -- Rebuild the MDBSF and SDBSF on 12: 2308-1382 DISKSVMSMASTER: chaae She BADINIT.832; 929 
ZSBITL ‘rebuild_dbsfs -- Rebuild the MDBSF and SDBSF on Last track devices’ 

d_dbsfs : NOVALUE = 


Functional Description: 
This procedure will rebuild the MDBSF and SDBSF on Last treck devices. 
The context of the ener yee MUST BE EXERCISE and NOKEEP. This is to 
assure that no data will be unintentionally lost due to the wee of the 
last track for the detected bad block files data. 
Implicit Inputs: 
Global Data. 
Implicit Outputs: 
The MDBSF and SDBSF will be recreated on the medium as empty files. 
Side Effects: 
If we did not manage to write the new MDBSF and SDBSF onto at least 


half of the last track, we will issue a diagnostic to the user warning 
him of the unreliable nature of the Last track data. 


AL 
cnt : INITIAL (0); 


Set up for writes. 
Clean the buffer out. 
! Default Serial Number. 
'"clear unused field. 
Define it as a Data Cartridge. 


LC (-1, bad$k_page size, -bad$ga_mdbsf); 


ltk-w_unused] = 0; 
ltkiw_cartridge) = 0; 


ont’ FROM 0 TO .bad$gl_sectors / .bad$gb zblesk wast dO 


NOT (bad$gl_status = bad$sync_io (.bad ga_m 
bad$k ages 
-bad$g age,s1i str + .offset)) 
THEN 
cnt = .cnt + 1; 


if cnt GEQ (.bad$gl_sectors / .bad$gb_block_fact) / 2 ! If we did not manage to write at 


' Least half of the last track, 
SIGNAL (bad$_rebldwarn, 1, bad$ga_device); ! send out a warning... 


END; ! of ROUTINE rebuild_dbsfs 


OOFC 00000 REBUILD Pests 


5 
57 p& 00002 gcRL CENT 
00006 CF 30 D0 00004 MOVE #32 


e R2,R3,R4,R5,R6,R7 
, BADSGL_FUNC 


s 
5 
50 0000G CF 
50 
50 


000000006 


000000006 00 


00006 


00006 


OWOOE “MOM O AVIVIVIOOM OL Out 


BADINIT Analyze/Media Initialization Module 1 
oO 000 rebulid.dbsfs -- Rebuild the MDBSF and SDBSF on 1 
56 00006:«CF DO 
0200 8F FF OF be 6 be S00 
6 001 
00006 CF 1 0 0001 
88 0006 tr on boots 
53 00006. F 3 (7 09 f 
2 1 GE 008A 
OocDF4e oF 09 D 
a ea: 
000000006 00 3 F 0 5 
00006 CF b 4 
2 EB 00049 
Dg O094¢ 
; a 
5 PF B08 
2 C6 0005p 
D1 00060 
3 19 00065 
F OF 00065 
1 DD 00069 
F DD 00068 
3 FB 00071 
00078 


; Routine Size: 121 bytes, Routine Base: 


; 956 1062 1 


o 


SCODES + O4DF 


3 
fee 


— 
wr 
. 


~m 
wn 


Ww 
wn 


MOVL 
moves 


1986 44334: 


4 VAX-11 Bliss-32 V4.0-7 
2 DISKSVMSMASTER:CBAD.SR 


BADSGA_MDBSF, R6 
#0, (SP), #1, #512, (RO) 


#1, BADSGL_SERIALNUM 
#1, (R6) 


R6 
BAD$GB_BLOCK_FACT, R3 
R3, BADSGL_SECTORS, R3 
fi. OFFSET 


aBADSGL MDBSF _PTRCOFFSET] 
#512, =TSP) 

BAD$GA_MDBSF 

#3, BADSSYNC_IO 

RO, BADSGL_STATUS 

RO, 2$ 


R3, OFFSET, 1$ 
BAD$GB_BLOCK_FACT, RO 
RQ, BADSGL_SECTORS, RO 
#2. RO 

Nf, RO 

BADSGA_DSVICE 

#1 


#BAD$_REBLDWARN 
#3, LTBSSIGNAL 


4 Pp 
CSBADINIT.B32:1- 


ge 


Be Se Se Se Ge Se Se Se Ge Se Ge Se Fe Ge Ge Se Ge Fe Ge Se Se Ge Se Se Se Ge Se 


37 
(14) 


1045 


<o | 


3 
BADINIT Analyze/Media Initialization Module 15-se $1984 23:37:4 VAX-11 Bliss-32 V4.0-74 Pa 8 
904-000 get.sdbsf =-- Get a valid copy of the SDBSF 12-86-1984 7:8, 33 DL SKSVMSMASTER (BAD. SRCIBADINIT.832:1 oe 8 
; 958 1063 1 ZSBTTL ‘get_sdbsf -- Get a valid copy of the SDBSF' 
; 385 1084 1 ROUTINE get. Edbst : NOVALUE = o 
; 960 1065 1 !+¢ 
; 961 1 96 1} 
3 oes : of : Functional Description: 
3 aoe 1398 : Obtain a walid copy of the Software Detected Bad Sector File. 
: 966 1071 1! Implicét Inputs: 
: 967 107g 1 4 r 
; 968 1075 1! bad$ga_mdbsf the address of the MDBSF buffer. 
H 434 Ire 1} bad$ga_sdbsf the address of the SDOBSF buffer. 
; 970 yoro 3: bad$gl_mdbsf_ptr the block number of the first block on the Last track. 
3 44 1976 ; bad$gl_sdbsf_ptr the address of the first free entry in the SDBSF buffer. 
3 378 1078 1 ! Side Effects: 
3; 974 1079 1! 
3 979 1080 1! If we are unable to read the SDBSF, if the SDBSF is FULL, or if it does 
; 976 1081 1! not correspond the MDBSF we will stop the analysis by issuing a FATAL 
3; 977 1ORg 1! diagnostic. 
; 978 1083 1 
3; 979 1084 1 !-- 
; 980 1085 BEGIN 
; «981 1086 LOCAL 
3 38 it value_present; 
> «984 1089 value_present = FALSE; ! The MDBSF was found and validated, 
> 985 1090 ! now look for the SDBSF. 
; 986 1091 INCR block FROM 10 TO .bad$gl_sectors / .bad$gb_block_fact - 1 D 
3; 987 1098 8 ' Search the remainder of the Last track 
; 988 109 IF bad$gl_status = bad$sync_io (.bad$ga_sdbsf, ! and validate the SDBSF's header. 
; 989 1094 ba Sk page size, 
; 990 1095 -bad$gl_mdBsf_ptr + .block) 
3; 991 1096 
3 298 1097 4 EGIN 
; #99 1098 4 IF .bad$ga_sdbsf Cltk_l_serial_number] EQL ! Validate the serial numbers. 
> 994 1099 4 -bad$ga_mdbsf Cltk_l serial _number 
; 995 1100 4 THEN 
; 996 1101 5 BEGIN 
; 997 1136 5 value present = TRUE; ! They matched, the rest of the 
; 998 1103 5 EXITLOOP; ! header should also be good. 
3; .999 1104 4 : 
3; 1000 1105 3 END; 
3; 1001 1196 END; 
3 1008 11 
3; 100 1108 IF NOT .value_present 
3 1004 1109 T : : 
3; 1005 1110 SIGNAL_STOP (bad$_sdbsfrfail, 1, bad$ga_device); 
: 1006 1111 
: 1007 Wig ' 
3; 1008 111 ! Point to the first free entry in the SOBSF. 
3; 1609 1114 : 
3; 1010 1115 value_present = FALSE; : 
3 H+ 4 1315 + entry FROM .bad$ga_sdbsf 10 .bad$ga_sdbsf + bad$k_page_size - 4 BY 4 
3 1913 1118 BEGIN ; 
3; 1014 1119 IF ..entry EQL =1 ! An entry of -1 implies 


et 


<@ 


-—————— 


3 
ADINIT Analyze/Media Initialization Module bese -1984 23: 
00-000 get_ tabs t =-- Get a valid copy of the SDBSF 14- eet 73 . 
: 1015 1120 3 THEN 
; 1016 1121 4 BEGIN 
8 Hf Hetggttii'tn 
; a sdbs r= ntry; 
1818 1194 iTfooe: ptr = .entry: 
iW 
: 10 11 
; + 1 8 dl wot -value_present 
3 1 i 9 EN SIGNAL STOP (bad$_sdbsffull, 1, bad$ga_device); 
: 10 § 1133 ! of ROUTINE get_sdbsf 


007C 00000 GET_SDBSF : 
WORD 


56 000000006 00 9€ 00002 MOVAB 
55 0000G CF 9E 00009 MOVAB 
54 00006 CF 9A ii ur & 
54 0000G CF 54 (¢7 0001 DIVL 
52 09 7D 00019 MOVa 
$ 11 gonte BRB 
QOOOGDF42 OF dh 18: PUSHAB 
7E 0200 8F 3C 0002 MOVZWL 
65 0D 00028 PUSHL 
000000006 00 03 FB BROge CALLS 
00006 CF 50 00 00031 MOVL 
D 50 E9 00036 BLBC 
0000G ODF 00 85 D1 00039 CMPL 
05 12 0003F BNEQ 
53 01 D0 00041 MOVL 
9 11 00044 BRB 
D4 52 4 F2 00046 gs: AOBLSS 
OF 53 £8 0004A 3$: BLBS 
0000G CF 9F 0004D PUSHAB 
4 DD 00051 PUSHL 
000000006 8F bd 00053 PUSHL 
66 93 FB 00059 CALLS 
55 D4 0005C 4$ CLRL 
51 65 OOOOOIFC 8F C1 BRE ADDL3 
50 65 00 00066 MOVL 
16 11 00069 BRB 
FREFFFFF 8 8©68F 60 D1 00068 5$: CMPL 
A is B80) BNEQ 
53 1 00 0007 MOVL 
00006 CF 0 00 ono MOVL 
8 11 7¢ BRB 
50 4 CO 4, gs: ADDL2 
51 D1 $: CMPL 
f 1B 0 BLEQ 
OF 3 086 8$: BLBS 
00006 ff F it PUSHAB 
1 00 0008 PUSHL 


7: 
4: 


4 VAX-11 Bliss-32 V4.0-7 


2 D1 SKSVMSMAS TER: (BAD. she BADINIT.832; ? 


the end of the bad block 
information. 


Set the address into 


the global pointer and 
return, 


If the bad block file 
is full, issue a diagnostic 
and quit. 


Save R2,R3,R4,R5,R6 


GA_SOBSF, R5 
BADSGB BLOCK FACT, R4 
BAD BADSGL “SECTORS, R4 


@BADSGL MDBSF_ PTRCBLOCK] 
BADSGA SDBSF 
#3, BADSSYNC_10 

RO, BAD$GL_STATUS 
@BAD$SGA_SDBSF, @BADSGA_MDBSF 
a. VALUE_PRESENT 
R4, BLO 
VALUE LORE SENT. 4$ 
BADSGR DEVICE 
pve SDBSFRFAIL 

PRESENT 

VATUELP “BADSGA SDBSF, R1 
BADSGAT SDBSF> ENTRY 
(ENTRY), #=1 
6s 


VALUE_ PRESENT 
entry BADSGL_SDBSF_PTR 


#4, ENTRY 
gNfRY, R1 


VALUE paesee? Le 9$ 
BADSG R_DEVIC 


me) 


<o | 


Oot LSet en Gee bonita copy of the SDBSF hd opr 18R2 Fel :39 | WN WRAAS FERS CHAS sec SeaIniT 0325108" «15 
og 000000006 BE DD B98 PUSHL #GADS_ SDBSFFULL : 
CALLS #3, LIBSSTOP ; 

B88 98: se : 1132 


; Routine Size: 153 bytes, Routine Base: S$CODE$ + 0558 


; 1028 1133 (1 


a 


3 
pap init Analyze/Media Initialization Module 15-Sep-1984 93:37:40 VAX-11 Bliss-32 that Page 41 
v04- get_nit_sdbsf -- Get a non last track SDBSF 14-Sep-1984 11:54:2 DISKSVMSMASTER:CBAD.SRCJBADINIT.B32;1 (16) 
; 1030 1134 1 XSBTTL ‘get_nlt_sdbsf -- Get a non Last track SDBSF' 
; 1031 1155 1 ROUTINE get_Alt_Sdbsf = 
3; 10 ¢ 11 § 1 t+¢ 
3; 10 11 1! 
3 + 2 1 3 : } Functional Description: 
; 1036 1140 1! This is a mon Last track device, so search the Last 256 blocks of the 
3; 1037 1141 1! device for the SDBSF. Once its found validate it by checksumming (shared 
3; 1038 1306 1} routine from FIIAACP) and verification of the fixed value fields of the 
; 1039 1145 1! header. 
3 1040 1144 1! 
3 1041 1145 1°! Implicit Inputs: 
; ek 1146 1! 
3; 104 1147 1! bad$gl_maxblock the total number of blocks on the device. 
3 1044 1148 1! bad$ga_sdbsf the address of the SDBSF buffer. 
; 1045 1149 1! 
3 1046 1150 1! Side Effects: 
; 1047 1151 1! j 
3 1048 1126 1! If there is no SDBSF on the medium, an informational message will be issued 
3; 1049 1155 1! and a new SDBSF will be created. 
3; 1050 1154 1! 
3 192) 1155 1 !-- 
3; 1052 1156 2 BEGIN 
3; 1053 1157 § LOCAL 
3; 1054 1158 value_present; 
3; 1055 1159 § 
3; 1056 1160 value prepent = FALSE; 
; 1057 1161 DECR Block FROM .bad$gl_maxblock TO .bad$gl_maxblock - 256 DO 
3; 1058 1166 BEGIN 
3; 1059 116 bad$gl_status = bad$sync_io tpeddee sdber 
; 1060 1164 3 bad$k_page_size, 
3; 1061 1165 3 -block); 
3 1062 1166 3 IF .bad$gl_status 
; Inez 1167 3 THEN 
3 1064 1168 4 BEGIN . 
: 1065 1169 4 IF CHECKSUM2 (.bad$ga_sdbsf, bad$k page_size - 2) ! Sum of the entries, stored in the last wor 
3 1066 1170 4 AND .bad$ga_sdbsf (nif_b_cntfldsiz] EGL“nlt_k_cntfldsiz |! Size of the count field in bytes. 
3; 1067 1171 4 AND .bad$ga_sdbsf pnt tpaeertigelg EQL nit_k_adrfldsiz ! Size of the address field in bytes. 
; 1068 1178 4 AND .bad$ga_sdbsf [nlt_b_usedbbdsc] LEQ nlt_k_available ! Number of used bad block descriptor 
3 1368 1173 4 THEN ! (the count is in WORDs!) 
: 1070 1174 5 BEGIN 
3 1071 1175 «5 value grovent = TRUE; ! We found one, return. 
; 107¢ 1176 5 EXITLOOP; 
3 197 1177 4 3 
3 1074 1178 3 END; 
3; 1075 1179 END; 
3; 1076 1180 : 
3; 1077 1181 IF NOT .value_present ' If the SDBSF is not available, issue 
; 1078 1156 THEN ! a diagnostic and create a new one. 
3; 1079 118 BEGIN é 
; 1080 1184 SIGNAL (bad$_nobadinfo, 1, bad$ga_device); 
3 1081 ay FA init_sdbsf (J; 
5 1086 11 $ ND; 
3; 108 Ht 
3; 1084 11 : ! 2 - 
3; 1085 HY ! Point to the first free entry in the SDBSF before returning. 
; 1086 1190 : 


<m 


-—— posnnitpneitailipthannansipeninintaccdatanoamantents: Segiimnsiiea 


| 4 
| BADINIT Analy ze/Nedie Initialization Module 18-sep-19 4 43:37:40 VAX-11 Bliss-32 V 42 
v04-0 get. nlt_schsf == Get a non Last track SDBSF 14-Sep-1984 11:54:2 DISKSVMSMASTER: CBABS she BADINIT.B32; (29 (16) 
; 1087 1191 bad$q' sdbsf_ptr = .bad$ga_sdbsf + nlt_k_headersi 
; 1088 1136 “ ChadSgan sdbsf (nlt_b_Usedbbdsc : 2); 
3; 1089 119 
: 1090 1194 RETURN .value_present; 
; 1091 1195 
3 1092 1196 


1 END; ! of ROUTINE get_nit_sdbsf 


003C 00000 GET_NLT_SDBSF: 
WORD e R2,R3,R4,R5 


| . g 115 
55 0000G CF 9E 9000 MOVAB BADSGA SDBSF, R5 : 
53 D4 0000 CLRL VALUE. PRESENT + 1160 
54 C00U.. CF vet #8 8F C3 00009 SUBL3 256, BADSGL_MAXBLOCK, R4 3; 1161 
$2 0000G CF D0 00013 MOVL ADSGL _MAXBLOCK, BLOCK : 
4B 11 00018 BRB a : 
52 DD OOO1A 18: PUSHL 3: 1165) 
7E 0200 8F 3C OOODIC MOVZWL BL Osk -(SP) : 1163 
65 DD 00021 PUSHL  BADSGA s0BSt : 
00000000G 00 03 FB 00023 CALLS #3, BABSSYNC 3 
0000G CF 50 DO 0002A MOVL RO, BADSeL SrATus 3 
oF 0000G CF 9 000¢F BC BADSGL_ STATUS, 2$ : 1166 
7E O1FE 8F 3C 00034 MOVZWL (SP) : 1169 
65 DD 00039 PUSHL BAD 6a. SDBSF : 
00000000G 00 02 FB 00038 CALLS #2, CHECKSUM2 é 
1E 50 €E9 00042 BLBC z 
01 00 BS 91 00045 CMPB @BADSGA_SDBSF, #1 ; 1170 
18 12 00049 BNEQ 3 
50 65 00 00048 MOVL BADS$GA_SDBSF, RO : 1171 
03 01 ad 91 O008E CMPB 1(RO), #3 : 
OF 12 0005 BNEQ 3 
50 65 DO 00054 MOVL BADSGA_SDBSF, RO 3 1172 
FC Os BF 02 Ad 91 00057 CMPB 2(RO), #252 $ 
05 1A 0005C BGTRU 2$ 3 
53 01 DO 0005E MOVL #1, VALUE_PRESENT : 1175 
07 11 00061 BR8 4$ : 1174 
28 D7 00063 33: DECL BLOCK : 1161 
54 52 D1 00065 3$: CMPL BLOCK, R4 : 
80 18 00068 BGEQ 1$ : 
18 5 £8 0006A 4$: BLBS VALUE_PRESENT, 5$ : 1181 
0000G CF 9F 0006D PUSHAB BAD$GA_DEVICE > 1184 
4 0D ata PUSHL @# 3 
00000000G 8F DD 00073 PUSHL A ree een 3 
00000000G 00 83 FB 00079 CALLS Tass SIGNA 3 
0000v CF 9 FB 00080 CALLS #0, INI SDBSF : 1185 
51 65 00 00085 5$: MOVL BADSGA_ SDBSF. 3: 1191 
50 02 Al 9A 00088 MOVZBL 2(R1) : 1192 
0000G CF 04 arag 43 o08% MOVAW Gn} (203 BADSG SDBSF_PTR 3 1191 
50 53 00 0009 MOVL UE_PRESENT + 1194 
04 00096 RET : 1196 
; Routine Size: 151 bytes, Routine Base: SCODES + O5F1 


3 1093 1197 1 


] 


<@ 
Oo» 


--——-- 


4 
1 


BADIN T Analyze/Media Initialization Module iS-se $1984 23:37:4 VAX-11 Bliss-32 V4.0-74 Page 43 
$0e+000 it’ sdbst == Create and initialize the header 12-808} 98¢ 9758035 DISKSVMSMASTER: (CBAD.SRCJBADINIT.832;1 . (17) 
095 ZSBTTL ‘init sdbsf -- Create and initialize the header of the SDBSF' 
B36 ROUTINE init_Sdbsf : NOVALUE = 
09 lee 
098 
099 Functional Description: 


This procedure wiil initialize the contents of a new SDBSF. The pointer 
to the first free entry will also be set. 


wr 


SSaratSse 


Implicit Inputs: 
bad$ga_sdbsf the address of the SDBSF buffer. 
Side Effects: 


The header fields of the selected format bad block buffer are initialized 
to the statically defined values. 


MPMIPOPOPoToTNororenoreorofronn a 


—_— 3 -t 1OOC 


THEN 
! Last track device (copy static fields from the MDBSF). 


bad$ga_sdbsf (itk_w_unused] = _.bad$ga_mdbs 


BEGIN : 
bad$ga_sdbsf (itk_l_serial_number] = sor mdbsf Cltk_l_serial_number]); 
Citk_w_unused]; 


bad$ga_sdbsf (itk wocartridge) = .bad$ga_mdbsf (Ttk_w cartridge); 
= gl_sdbsf_ptr = .bad$ga_sdbsf + ltk_k_headersiz; 
ELSE 
BEGIN ! Non Last track device (use static defaults). ‘ : 
bad$ga_sdbsf (nlt_b.cntfidsiz] = mlt_k_cntfldsiz; ! Fill in the count field size. 
adrfidsiz] = nilt_k_adrfldsiz; : Fill in the address field size. 
0; ! No descriptors used, 
[t k.available; ! Total number of available descriptors. 


usedbbdsc] 


bad$ga_sdbsf [nit 
bad$ga_sdbsf 


b 
nlt_b_ 
bad$ga_sdbsf db. 


nlt_b available) =n 


bedSgl_sdbst ptr = Tbad$ga_sdbsf + nTt_k_headersiz; 


a a a ad nd a = a 


POPOPORPOPIPEPOPOPoPoPononononofnonofornofnorony 


a a kk a a a ak a ed dd 


WN =O DONO VEWN $0 ODNOUE WN —O0On~ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1! 
BEGIN 
IF .bad$gl_context Cctx_v_ltdevice] 
2 
Fd 
1 


AX FUN —OOCBNAUEWN —OVOOVNOAU SWC OW 


WAAL NIA AIP PO NINN NIN 2 


END; ! of ROUTINE init_sdbsf 


| 

| 

0000 00000 INIT_SDBSF : 
WORD 


. Save nothin 3: 1199 
50 000G CF 09 90002 MOVL § BADSGA_SDBSF. RO : 1222 
OF 000G CF £9 0000 BLBC BADSGLCONTEXT+1, 18 > 1219 
51 00006 CF BO 000¢ MOVL § BADSGA"MDBSF, R1 : 1222 
0 61 D 00011 MOVQ (R1) R : 
00066 CF 08 AO 9E 00014 MOVAB 8(ROS, BADSGL_SDBSF_PTR > 1225 
04 QOO1A RET 3: 1219 
60 FC000301 8F DO 0001B 1$: MOVL  #-67108095, (RO) > 1229 
00006 CF 04 a0 3 902 MOVAB 4(RO), BAD$GL_SDBSF_PTR i] 3 


3; Routine Size: 41 bytes, Routine Base: S$CODES + 0688 


Be Be Be Oe BH Se Se Be FHS He Se FH Se Se Se SH Se Se Se Se Se Se Se Se Ge we BH Oe SH ase Oe SHOES Se Oe Oe Oe SHOE SH Oe Oe Be Be OHHH Oe Se OH Oe OH Oe Oe ws we 


30 


3 1134 


init sdest m= 


1237 


nitialization Module 
sdbsf -- rhbde. and ieietotise the header 


1 


1b-5 


4 
e 


12: ep. 1982 3 3133 


Vv 
D 


A 
I 


X-11 
SK$ 


BL 
VMSM 


liss-32 V 
ASTER: 


BAB. OSRCSBADINIT. B32;1 


Page 


44 
(17) 


r—- 


| BI 
vC 


e+ Cr - — —= 


T 
ae 


1839 
‘ 


4 

4 
5 
; 


nee 
oO 


4 
4 


AAEM SE EEE EEE Sous 
= 


Be Se ee Ge Se Ge S8 Ss Fe Ge Ge BH Se Se Se Se SH Se G8 Se Ge FHS Se SHS Se Se Se Se Se Sees eee 
a ek at tk a a a ak ts = 6a a = a a — 9 a — a 9) + 4 1 1 
a ee es ot a a 2s 2 = = “a as = = = 2 Ls SS) Ls Las 4 Ss 9 8 SS Ys SY 


2 
é 
5 
2 
5 
é 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


— ot oe ww = 2 ws SS a as a a SS 2 a es a as SY 2 st 
SNA AAA AAA AAA MMMM II 
NR—OOWDNAUESWN “OC VOONOULS INN $C OO 


NOAA 


=P PI WWI NONI RPP 4 ts 
o- 


ZSBITL ‘get pattern 
ROUTINE get_pattern 


1 
Functional Descrip 


Implicit Inputs: 
bad$gl_bad_term 


Side Effects: 


If the user neg 


i 
i 
i 
' 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
: (ctx _v pattern 


lee 

BEGIN 

bad$gl_context Cctx_ 
bad$gl_bad_term (0) 

bad$gl_bad_term (2) 

bad$gb_term_count = 


bad$gl_context [ 


END; ! of ROUTINE 


00006 CF 


000000006 
00006 


0000v CF 


bad$gb_term_count 


4 


Analyze/Media Initialization Module 18-sep-19 
get_pattern -- Process user supplied test patte 14-Sep-19 


7 $3:3734 VAX-11 Bliss-32 yi Ones Pa 
1:546:2 DISKSVMSMASTER:(CBAD.SRCJBADINIT.B32;1 


ca Process user supplied test pattern(s)' 


: NOVALUE 


tion: 


Process the user supplied test pattern(s). 


the vector into which the pattern(s) 


will be loaded. 


the number of longwords which make 
up the pattern. 


lects to supply at least one pattern, the context bit 
will be cleared, and the default pattern(s) will be used. 


uapetzerny = FALSE; 
= bad$gl_bad_term E13 = 0; 
= bad$gl_bad_term (3] = 0; 


0; 


ctx_v_pattern] = TRUE; 


perse.value (number_tBl, numkey_tbl); 


get_pattern 


WILE EL LOSE T VALUE (pattern, bad$ga_input_desc) DO 


0000 00000 CET _par ten 


TOMOOMOOMOOOOoS 
PIM LOw Rw nH LE 
ie a | 
"COOWw 
SooooooooooS 
Oooooooooo[eo 


Assume the default. 
Clear the vector. 


Clear the term count. 


Process all supplied values. 


Flag that there are valid 
Parse the string into a value. 


BADSGB~TERM_COUNT 
BADSGA INPUT_DESC 


PATTER 

#2, CLISGET_VALUE 

#4, BADSGL_CONTEXT+1 
KEY_TBL 


NUM ERTTBL 
Re. PARSE_VALUE 


atterns available. 


Pete Se Se Se Se Se Se Se Se Be Se Ge Se Be 


e 45 
(18) 


<2 | 


BADINIT Analyze/Media Initialization Module bocd p-1984 $3: He VAX-11 Bliss-32 V4.0-7 46 
v04-000 get_pattern -- Process user supplied test patte 1ensep-1986 DISKSVMSMASTER: (BAD. SRC BADINIT.B832; * 9 18) 


; Routine Size: 58 bytes, Routine Base: S$CODES + 0681 


3; 1171 1273 «1 


Be Se Se Oe Se Be Be Se FF Se Fe Ge Fe Se FF Se Se Ge Ge Be we Oe SH Oe SH Se ee Se SESH Se oe BH Se Se ee Se SHS Se ee SH Se Oe Se Oe Bees 


— 


OOOO OOOODWWWOWOWOWOMWMDO NNN 


1 


SSRLESRAN LESSER AV AS Sao ARo 


SSSs 


VEN 9 ODNAMNE WN $0 ODN NEW OOONOUS 


ROR 3 = 2 Ss SS Ss SS Ss SS SS SS Ss Ss Ss Ss SS SS SS 


tk a a a a a a a i a a a kk nk a ad at a a = ts 2 


et em a ee ee ee ee ee ed ed ed ed od od 


4 
Analyze/Media Initialization Module 18-2 1984 23:37:4 
v06 process. badblocks -- Process user supplied bad 122860198 $338,335 


AAAI NAINA AAW 
Sesz 
NOU SW —OO@n 
PA AIP PIPNINININIPINPINONININIPIPIPIPIPIPIIIIII a at at at at tt tt ee 


VAX-11 Bliss-32 V4.0-74 Pa 
DISKSVMSMASTER:(CBAD.SRCJBADINIT.832;1 


ZSBTTL. ‘process_badblocks -- Process user supplied bad block(s)' 

ROUTINE process _Badblocks = 

Functional Description: 
Process the user supe tog bad block information. This is accomplished 
by persing the bad block(s) suppl ted by the user, validating them 
against the device poneer Te then if they are not already recorded in 
a@ bad block file, they will be inserted. 


Implicit Inputs: 


bad$gl_bad_term the vector containing the terms used to describe 
the bad block(s). 
bad$gb_term_count the number of term used to describe the bad 


block(s). 
Side Effects: 
If the block(s) specified are not already recorded in the bad block file(s) 
they will be added. f there are duplicate bad blocks specified, they will 
cause a warning message to be displayed. 


If we are prompting for the bad blocks, then if an invalid block number or 
rammar error is encountered, we will issue a Clognest 6. disregard the 
) 


Oe eee ee ee ee ee 


ast entry and prompt ogetn. If not prompting for bad blocks (they were 
specified in the command), then we will issue a FATAL error diagnostic, 
01 0 terminating the analysis. 
$0¢ 0 : 
20 0 feo 
204 0 BEGIN 
205 OWN 
$06 hibound, 
at4 Lobound; 
$93 1 hibound = lobound = 0; ! Assure we start out fresh. 
19 1 bad$gb_term_count = 0; ' Reset the count of terms 
21 1 bad$g\"bad_term £93 = bad$gl_bad_term fi) = 0; ! and each of the terms also. 
sig 1 bad$gl_bad_term = bad$gl_bad_term (3] = 0; 
Hy : parse_value (state_tbl, key_fbl); ! Parse the bad block info. 
$1 1 IF .bad$gb_term_count EQL 0 ' Did we encounter a syntax error? 
16 1 THEN ' Yes, so return for more input 
‘i H RETURN FALSE; ! (if any) to process. 
19 0 ! Validate the address(es). If validation fails, the validation routine 
20 1 : will depending on the processing context (interactive or command) 
$3 § ! signal an error or halt execution of the image via a modification of 
§ i the message severity (set to STSSK_SEVERE). 
Si 5 If .bad$gb_term_count GEQ 3 ! Is the address in physical 
36 § een ! or logical address format? 
$ 8 If NOT val_phy_adr (.bad$gl_bad_term (0], ! Sector 
$§ 9 -bad$gl_bad_term (1), ' Track 
9 330 -bad$gl_bad_term (2), ! Cylinder 


ge 


ae 
(19) 


uw 


meron 
PAA AAMMNANAA ES SELL LEE 


a ed a a 
NOMEN OOOO VUE WN ("OO OVNOU SW 0O0OW 


a a kk ed ed 8d ed 8d wd = = od 


Sooo AACE MIMAMNMVMANUIUIUIVN & 


Analyze/Media Initialization Module tt, -1984 o 33: zs! $9 VAX-11 Bliss-32 V4.0-7 Page 48 


process _badblocks -=- Process user Supplied bad 12-80 0- 1986 


1 


oo 


DWNAOVUSWN "OOO NOUS WO 


DISKSVMSMASTER: (BAD. sae BADINIT.B32;1 (19) 


-bad$gi_bad_term (3]) ! Count 
THEN 
RETURN FALSE; 
lobound = bad$cvt_phy_log (. badéal bad. term ! This is a valid address, form 
-bad$gl_bad_term ! its equivalent logical block 
*badsat bad_term i. ! number. 
hibound = .lobound + .bad$gl_bad_term (3) - 1; 
ELSE 
BEGIN 
IF NOT val_log_adr (.bad$gl_bad_term Fo} ' Logical Block Number 
-bad$gl"bad-term [1)5 i Count 


THEN 
RETURN FALSE; 


lobound = .bad$gl_bad_term (0); 
one = ,lobound + Tbad$gl_bad_term [1] - 1; 


Set the address bounds. 


IF .hibound LSS .lobound ! Prevent mess up for one block, 
THEN ! the hi must be same as low. 
hibound = .lobound; 
At this point we are satisfied with the addresses speci tied. Determine 
if the media is last track or non Last track and look for a duplicate block. 
If no duplicate is found, the block(s) will be entered in the SDBSF. 
F .bad$gl_context Cctx_v_ltdevice] 
bad$check_itk (.lobound, .hibound) 
bad$check_nit (.lobound, .hibound); 


RETURN TRUE; 


1 END; ‘of ROUTINE process_badblocks 


-PSECT SOWNS,NOEXE,2 


60000 HIBOUND: .BLKB 4 
0004 LOBOUND: .BLKB 4 


-PSECT SCODES,NOWRT,2 
Q000C 00000 PROCESS_BADBLOCKS: 


WORD Sav : 1275 
$3 90006 CF 9002 MOVAB BADScL ahd. TERM, R3 : 
2 00° CF MOVAB HIBOUND, R2 : 
62 7C 0000C CLRQ - HIBOUN : 1310 
00006 cf 94 0000 CLRB © BADSGB_TERM_ COUNT > 1311 
63 7C 0001 CLRQ —- BADSGLBAD_TERM : 1312 


——---—— 


bere) 
| 
| 


3; Routine Size: 


3: 1268 


161 bytes, 


0000v 


0000Vv 


000000006 

04 

50 04 
0000Vv 


04 
50 04 


000000006 


000000006 


Routine 


50 


03 


Analyze/Media Initialization Module 
process_badblocks -=- Process user rae bad 


ganh: ¢ 


00006 
08 
04 


oc 


04 
FF 
04 


00006 


SMO DVONR MOU UIACORI NICO eS FF MOD COUN FRO Fed 


SOVYVODGOMAONOD YS F PRON BPV10F SPViwol Prwnnsnronn 


uw 
oO 


4 
14.5 Sep 
14-Sep 
7¢ 14 
oF 17 
oF 18 
FB 1F 
% 024 
1 88 9 
1F 0003e 
70 000 5 
7D 000 
4 037 
53 foes 
DD 00043 
FB 00045 
DO 0004C¢ 
C1 00050 
11 Bones 
7D 00058 1$: 
4, Ft 
E 4 
DO 0006 
C1 00067 
9E Bongo 2s: 
00 00071 
D1 00075 
18 00078 
DO OOO7A 
E9 0007D 3$: 
DD 00082 
DD ttn 
FB 00086 
11 00080 
DD OOO8F 4$: 
DD 00091 
FB 00093 
DO OO09A 5$: 
04 00090 
D4 4443 6$: 
04 000A 


SCODES + O6EB 


34 
ow 4 


Be f:56:2 


VAX-11 Bliss-32 V4.0-7 


DISKSVMSMASTER: (BAD. SRC BADINIT.832; ? 


Hine BAD_TERM+8 


Jat 
ERret VALUE 
BAsce, TERM_COUNT, RO 


i 
BADS$GL_BAD_ TERM+B, Pasig 
BAD$GL~BAD~ TERM P) 
#4, VAC PH HY_ADR’ 
BAOSGL_BAD_ TERMC4, -(SP) 
BADSGL “BAD™ 

BABSCVT. Puy LOG 
nd: 0 eBAD _TERM+12, LOBOUND, RO 
GADSG, BAD TE TERM, -(SP) 
+e 6$ ~ 
BADS$GL_BAD TERM, LOBOUN 
BAD$GL~BAD~TERM+4, COBOUND, RO 
-1(R0O), HIBOUND 
LOBOUN nb,” 
HIBOUND, RO 
34 
RO, HIBOUND 
BADSGL_CONTEXT+1, 4$ 
HIBOUND 
#2. BADSCHECK_LTK 
HIBOUND 


#2, BADSCHECK_NLT 
#1, RO 


RO 


See Se Se Se Se Ge Be Be Se Se Se Be Se Se Se Se Be Se Be Se Se Se Se Se Se Se Fe Se Se Fe Se Se Se Fe Se Se Fe Se Se 


a 
9619) 
1313 
1314 


8 
Vv 


— 
BR 


Seesaeasssses 


ak a a a a a an a kk a ak a tk a ad at as a 2 a a 2 a 
o 
— 


WAWAWAAA 


so 
Wn 
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Analyze/Media Initialization Module 15-sep-1984 $3: 37:6 
parse value -- Parse and process user supplied 14-Sep-1 254:2 


18rt 
18 


74 
75 
? 
7 


? 
19 

0 

1 
8§ 
84 
85 


98 


a ee me me ee a ee ee ee ce ee ee ee ee ce ee ee ce ee ee ce cl ce ee ce ee eel cel ee el el ee eel 
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VAX-11 Bliss-32 V4.0-7 


ZSBTTL ‘parse_value <= Parse and process user supplied value(s)’ 
ROUTINE parse_value (state, key) : NOVALUE = 


Functional Description: 


This routine is responsible org ing veer supplied values which 


le for g 
/EXERCISE=PAT 


are used by /BAD_BLOCKS, RN, etc.. 
Inputs: 

state adr address of the state table to use. 

key adr address of the key table to use. 


Implicit Inputs: 

The address of the TPARSE control block. 

The descriptor pointer to the string to be parsed (bad$ga_input_desc). 
Implicit Outputs: 


+ 


The information yeeter bad$gl_bad_term Cx] will contain the user 


supplied data values. 


low 
BEGIN 
LOCAL 
tparse_blk +: BLOCK CTPASK_LENGTHO, BYTE); 


IF bad$str_trim NEQ 0 
THEN bad$str_trim (bad$ga_input_desc); 


tparse_blk Ctpa$l_count] = TPASK_COUNTO; Initial longword count. 
tparse_blk Ctpa$l-options) = TPASM_ABBREV; ! Allow abbreviations. 
tparse_blk Ctpa$l-stringcnt] = .bad$ga_input_desc pescéu_ length); 

tparse_blk Ctpa$l_stringptr) = .bad$ga_input_desc dsc$a_pointer); 

LIBSTPARSE (tparse_blk, .state, .key); 


IF bad$str_trim NEQ 0 : ! Restore the buffer size if we are stand alone 
THEN bad$ga_input_desc Cdsc$w_length] = bad$k_input_len; 


END; ! of ROUTINE parse_value 


TPARSE control block. 


Trim the input Line if we are stand alone 
to preclude erroneous errors during the parse. 


! Parse the value. 


ORD Save R2,R3 3 

53 00006 cf 9 9002 HOVAB BAD$GA_INPUT_DESC, R3 
35 00006 CF oE OOOA MOVAB BAD$STR_TRIM, RO ; 
é D4 OO000F CLRL oR ; 

» 011 TSTL R 3 

09 13 00013 BEQL =s«1$ : 


tg Page 
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BADINIT Analyze/Media Initialization Module 15-Sep-1 VAX-11 Bliss-32 V4.0-74 1 | 
vir4 parse. value == Parse and process user supplied 14S ats 7 i: 7: $8 DISKSVMSMASTER: (BAD. SRC JBADINIT.B32; a 58) | 
Dé 00015 INCL oR : 
DD 0001 PUSHL R + 1401 
00006 cf F 19 CALLS #1, BADSSTR TRIM : 
E D 1€ 1$: MOVL = #8, E BLK : 1403 
eo p MOVL @ TPARSE-B K+4 + 1404 
8 AE 6 ¢ MOVZWL BADSGA_ TNPOT: DESC, TPARSE_BLK+8 + 1405 
C AE 04 =A p 9 MOVL BAD $GA~ INPUT “DESC+4, TPARSE_BLK#12 ; 1406 
7E 04 AC 7D 000 mova Thi hy + 140 
8 AE 9F 000 PUSHAB TPAR Sé_B : 
000000006 00 Q FB 005 CALLS TBST PARSE : 
04 2 €9 0003C BLBC +) + 1410 
63 84 BF 98 0003F MOVZBW Regt BADS$GA_INPUT_DESC + 1411) 
04 00043 2$: RET 3 1413 


; Routine Size: 68 bytes, Routine Base: SCODE$ + 078C 


; 1314 1414 1 


eet 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


tet aed 


WN —ODONAUS WN —ODOONO 


yee epery 4 


WAWtwiw 
SSSeuse 


Ww 
™™ 
NM—OOONOUSWROVOo~ 


3; Routine Size: 


4 
enol yge/Redie Initialization Module 15-Sep-1984 $3: 37:6 VAX=11 Bliss-32 Vo hed Page 52 
TPARSE action routines 14-Sep-1984 11:54:2 DISKSVMSMASTER: CBAD.SRCJBADINIT.832;1 (21) 
1415 1 &ZSBITL_ ‘TPARSE action routines’ 
1416 1 ROUTINE count_term = 
1417 1 S44 
1418 1! 
1033 ! Functional Description: 
1421 1! This routine is called by TPARSE to indicate the number 
1? § } of terms which describe the user supplied bad block(s). 
1? ¢ ' ; Implicit Outputs: 
14 $ 1/ bad$gl_bad_term The appropriate longword in this vector is 
1 : loaded with the current value of the parse. 
14 5 1/ bad$gb_term_count The count value is used after parsing the 
1430 1! current term to describe the form of bad block 
1? 1 : information specified. 
1638 1: 1 => Lbn 
1434 1! ¢ => Lbn:count 
1435 1! => sector.track.cylinder 
1436 1! 4 => sector.track.cylinder:count 
1437 1! 
Pt 1 !ee- 
1439 BEGIN 
1440 
1063 def_tparse_args; 
1208 bad$gl_bad_term [.bad$gb_term_count] = stparseorgs CTPA$L_NUMBER]; 
1662 bad$gb_term_count = .bad$gb_térm_count + 1; 
1446 IF _badeae term_count GTR 4 
1eet THEN RETURN FALSE; 
1449 RETURN TRUE; 
1450 2 
1451 1 END; ! of ROUTINE count_term 


0004 00000 COUNT_TERM: 
WORD 


0 Save R2 : 1416 
5 00006 CF 9 0000 MOVAB —BADSGB_TERM COUNT, R2 ; 
5 62 9A 0000 VZBL BADSGB TERM COUNT, > 1443 
0000GcF4 1C AC 00 OO00A OVL B(TPARSE_ ARGS), BADSGL_BAD_TERMCRO) : | 
62 96 00011 INCB —- BAD$SGB_TERM_COUNT > 1444. 
04 62 91 00013 CMPB © BADSGBTERM~COUNT, #4 > 1446. 
04 1A 00016 BGTRU 1$ ; | 
50 1 00 0001 MOVL #1, RO : 1449 
04 0001B RET : 
50 p4 O00IC 18: CLRL = RO > 1451, 
4 O001E RET ; | 


31 bytes, Routine Base: $CODE$ + 0700 
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‘BaDINIT enol yge/Regie Initialization Module 15-sep-1984 $3: 37:6 VAX-11 Bliss-32 that os Page 3 
v04- TPARSE action routines 14-Sep-1984 11:54:2 DISKSVMSMASTER:CBAD.SRCJBADINIT.632;1 (22) 
3 3 oe 1453 1 ROUTINE syntax_err = 

3; 9 8 1454 1 S44 

; 155 1455 1! 

3 ; rH 1428 : Functional Description: 

; 1360 1458 1! This routine issues a Si pgnot te to inform the user of an invalid 

3; 1361 1459 1! argument in the bad block specification. The term count is reset 

; : ? 1009 ' to indicate an invalid bad block specification was encountered. 

3; 1364 1696 1 ! Implicit Outputs: 

; 1365 1465 1! ; 

3 } 4) He ! bad$gb_term_count is reset, to indicate no value present. 

3 1308 1466 1 ! Side Effects: 

3; 1369 1467 1! 

3 13% 1468 1! Since there was a missing argument in this block spec, it constitutes 
3 1371 1469 1! an unrecoverable error. If we are ronpt ing for bad blocks, issue the 
: 1376 1470 1! diagnostic and prompt for the next block. If we are process ing bad 

3; 137 1471 1! blocks issued from the command Line, then terminate the analysis after 
; 1308 1o%6 1! issuing the diagnostic. 

; 1375 1473 1! 

; 1376 1474 1 !e- 

; 1377 1475 BEGIN 

; 1378 1476 bad$gb_term_count = 0; 

3; 1379 1477 , ; 

; 1380 1478 SIGNAL (IF sbedSal context Cctx_v_interactive] 

; 1381 1479 THEN bad$_Tvblkent 

3; 1382 1480 ELSE bad$_ivblkent + STSSK_SEVERE, 

3: 1383 1481 1, bad$ga_input_desc); 

: 1384 1482 

3; 1385 14835 2 RETURN TRUE; 

3; 1386 1484 2 

3; 1387 1485 1 END; ! of ROUTINE syntax_err 


0000 00000 SYNTAX_ERR: 


WOR 
0000G CF 94 00002 CLRB 
0000G CF 9F 00006 PUSHAB 

01 DD OOO0A PUSHL 

68 0000G CF 5 €1 Oot BBC 

00000000G 8F DD 0001 PUSHL 

6 11 B00} BRB 

00000000G 8F DD OOOIA 1$ PUSHL 
000000006 00 3 fe it 0 2% CALLS 

50 01 00 00027 MOVL 

04 0002A RET 


3; Routine Size: 43 bytes, Routine Base: S$CODES + O7EF 


; 1388 1486 1 


Save nothing 
BAD$GB_TERM_ COUNT 
BAD$GA_INPUT_DESC 


#5, BADSGL_CONTEXT, 1$ 
#BAD$_IVBLRENT 


BRADS IVBLKENT+4 
#3, LTGSS1GNAL 
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; Routine Size: 


3 1411 


5 
Analyze/Media Initialization Module 18-52 
TPARSE action routines 14-Se 
bt 14 1 ROUTINE bad value = 
1488 1 !+4¢ 
pt > 1! 2 
es } : Functional Description: 
1438 1 This routine issues a diagnotic to inform the user of an invalid 
et : value on the PATTERN keyword. 
1495 ! Side Effects: 
1499 1 Since there was an invalid pattern value, it constitutes an unrecoverable 
1498 1! error. Since we are processing the value from the command Line, terminate 
1338 : } the analysis after issuing the diagnostic. 
1501 1 i-- 
1308 BEGIN 
1504 2 SIGNAL (bad$_badvalue, 1, bad$ga_input_desc); 
1505 RETURN TRUE; 
1506 2 
1507 1 END; ! of ROUTINE bad_value 


0000 00000 BAD_VALUE: : 
~ WORD Save nothin 


0000G CF 9F 00002 PUSHAB BAD$GA_INPUT_DESC 
01 DD 00006 PUSHL #1 
00000000G 8F 00008 PUSHL #BAD$_BADVALUE 
000000006 00 03 FB OOODE CALLS #3, LIBSSIGNAL 
50 01 pd 00015 MOVL #1, RO 
04 00018 RET 


25 bytes, Routine Base: S$CODES + OB1A 


1508 1 
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p-1984 11:54:2 DISKSVMSMASTER: CBAD.SRC JBADINIT.832;1 (2 ) 
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5 
bevel Analyze/Media Initialization Module 1$-sep-19 4 $3: 37:6 VAX-11 BLliss-32 oF het bs Page 56 
, VO4~ val phy adr -- Validate Physical Address 14-Sep-1984 11:54:2 DISKSVMSMASTER:CBAD.SRCJBADINIT.832;1 (24) 
: 1413 1509 1 ZSBTTL vel phy adr -- Validate Physical Address’ 
13 1414 1 \9 1 ROUTINE val phy adr (sec, trk, cyl, cnt) = 
3 1415 1511 1 fee 
8 Hrd | 1 \§ 
3 141 151 1 ! Functional Description: 
3; 1418 1514 1! 
> 1419 1919 7! Validate Physical Address Range 
: 1420 1218 1 3 
: 1421 151 1 ! Inputs: 
3 14 ¢ 1518 1! 
3 14 1519 1! sec val the sector number meg hey by the user. 
> 14246 1 9 1} trk val the track number supplied by the user. 
3 1425 132) 7 ! cyl val the cylinder number supplied by the user. 
; 1° $ 2 ¢ : cnt val the count of contigous sectors to mark bad. 
> 1428 1524 1! Implicit Inputs: 
; Me? toes 3 3 ; 
3; 1450 1526 1! bad$gi_cylinders the number of cylinders on the device. 
: 1431 Wser 3 f bad$gl_maxblock the total number of blocks on the device. 
3 re 1528 1! bad$gl_sectors the number of sectors per track on the device. 
3 \e82 13¢8 ! bad$gl_tracks the number of tracks per cylinder on the device. 
3 1435 1531 1! Side Effects: 
3 1436 1336 1? : 
3 1437 1835 1! If any of the parts which constitute the physical address are not 
; re + 1338 : valid, we will issue a diagnostic and select on of the following actions. 
; ieat 1338 : If prompting, disregard the last entry and prompt for more input. 
: ri 1538 1! If preroes tne blocks from the command Line, the severity will be set 
: 144 so7 7° o FATAL, resulting in termination of the analysis. 
3 1446 1540 1! 
3 14465 1541 1 !-- 
3 1446 1366 BEGIN 
3 1447 154 OWN 
3: 1448 1544 hibound, 
3 1449 1545 § status; 
> 1450 1546 
: née) HF 94 4 status = TRUE; ! Assume address is ok. 
: 1438 138) ae GTR .bad$gl_sectors - 1 ag phe eee number 
: ' within range? 
: re $ 133) status = addr_error (sector, .sec); 
; 143? 1388 ca GTR .bad$gl_tracks - 1 sg she eet ae: 
3 ‘ow ? 
3 1289 1555 status = addr_error (track, .trk); 
3: 1460 1228 t 
3 yet THA er GTR .bad$gl_cylinders - 1 19 phe odo number 
; 1468 1258 status = addr_error (cylinder, .cyl); : ; 
; 1465 1361 IF .cnt NEQ 0 ! Should we consider the count field? 
1489 1368 pe d = bad$cvt_phy_log(.se trk, .cyl) amen to logical address 
: ibound = bad$cv og(.sec, .trk, . ; : v 3 ‘ 
3 1469 1565 IF .hibound + cent GIR Bad$gl ‘maxblock z 1 ! Does the COUNT field 


— 


—-—— 
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Analyze/Media Initialization Module 1b.se $1984 23:37:4 VAX-11 Bliss-32 V4.0-74 P 7 
val phy adr -- Validate Physical Address 12-808=1 9be $7530: DISKSVMSMASTER: CBAD. SRC BADINIT.B32:1° 9" (20) 


1 $6 THEN ! push us over the end 
6 status = addr_error (count, .cnt); of the media? 
68 ND; Inform user of the 

invalid address generated. 


1 

1 

1 4 

12i0 RETURN .status; 
1572 END; ! of ROUTINE val_phy_adr 


-PSECT SOWNS,NOEXE,2 


p08 HIBOUND:.BLKB 4 
OOOC STATUS: .BLKB 4 


-PSECT SCODE$,NOWRT,2 
001C 00000 VAL_PHY_ADR: 


.WORD Save R2,R3,R4 ; 1510 
54 0000v CF 9E 0000 MOVAB ADDR_ERROR. R4 : 
53 0000' CF 9E 0000 MOVAB STATOS, R3 : 
63 01 pO 0000C¢ MOVL #1, STATUS + 1547 
50 00006 CF 01 C3 0000F SUBL3 #1, BADSGL_SECTORS, RO + 1549 
50 04 AC 01 00015 CMPL SEC, RO ; 
0D 15 00019 BLEG ~=Ssés«é18 ; 
04 AC 0D 00018 PUSHL SEC + 1551 
0000" CF 9F 0001 PUSHAB SECTOR : 
64 92 FB 000 CALLS #2, ADDR_ERROR : 
63 00 000 MOVL. RO. STAT : 
50 00006 CF 01 00028 1$: SUBL3 #1. BADSGL_TRACKS, RO + 1553 
50 08 AC DI 000¢E CMPL ~=sCTIRK, RO ; 
0D 15 000 BLEG 2$ ; 
08 ac oD 00054 PUSHL TRK > 1555 
0000" CF 9F 00037 PUSHAB TRACK : 
64 92 FB 00038 CALLS #2, ADDR_ERROR ; 
63 D 0005¢ MOVL. RO. STATOS F 
50 00006 ct 01 C3 00041 2s SUBL3 #1, BADSGL_CYLINDERS, RO : 1557 
0 OC AC 01 00047 CMPL =e CYL, RO : 
0D 15 00048 BLEQ 46 38 ; 
0c AC DD 00040 PUSHL CYL : 1559 
0000" CF 9F 00050 PUSHAB CYLINDER F 
98 F 0094 CALLS a. ADDR_ERROR : 
63 DO 00057 MOVL RO, STATOS ; 
10 AC 00 0005a 38: MOVL CNT, R2 : 1561 
2E 13 0005 BEQL F 
7E 08 AC 7D 0006 MOV  TRK, =(SP) > 1564 
04 AC DD 0064 PUSHL SEC ; 
000000006 0 9 FB 67 CALLS #3, BADSCVT_PHY_LOG ; 
FC OA 9 D 006 MOVL. RO. HIBOUN ; 
51 5 FC OAS OT 00 ADDL3 HIBOUND, R2, R1 : 1565 
50 00006 cf 1 ¢3 0007 SUBL3 #1, BAD$GL_MAXBLOCK, RO : 
0 1 D1 0007 CMPL Sse. RO : 
§ 15 BLEQ 4 : 
pd 90 ? PUSHL R : 1567 
0000° CF 9F 00084 PUSHAB COUNT ; 


| 
| 
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BADINIT Analyze/Media Initialization Module 18. -Sep- VAX-11 Bliss-32 v4.0- 58 8 
wes val “phy. adr == Validate Physical Address 14- akep- 198 73 35 DISKSVMSMASTER: (BAD. She SeaDINIT. 832;1 1398 (oa) Vv 
| 0 8 900s aut fB-eatREnON | 

$3 63 00 OO08E 4$: MOVL StAtUs. RO : 1570. 

| 04 00091 RET : 1572 


; Routine Size: 146 bytes, Routine Base: $CODE$ + 0833 


3; 1477 1573 1 
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BADINIT Analyze/Media Initialization Module 17-300-138% $3: 37:60 VAX-11 Bliss-32 eto Page 39 
vO4 val_log_adr <= Validate Logical Address 14-Sep-1984 11:54:2 DISKSVMSMASTER:(BAD.SRCJBADINIT.832;1 (25) 
3; 1479 1574 1 ZSBTTL ‘val _log_adr -- Validate Logical Address’ 
3 1480 1575 1 ROUTINE val_Tog_adr (ibn, cnt) = 
3 1481 1 6 1 lee 
3 14 ; 77 1! 
3 128 : 4 : Functional Description: 
3; 1485 1580 1! Validate Logical Block Number Address range. 
: 1eB9 1882 1 i Input 
5 ! Inputs: 
: 1488 12 : 1} 
3 1489 1584 1! Lon val the block number to validate. é 
3 es 1386 : cnt val the number of contiguous block to validate. 
3 1436 15 ; 1! Implicit Inputs: 
3 149 1588 1! 
3 1494 1589 1! bad$gl_maxblock the total number of blocks on the device. 
3; 1495 1590 1! 
3 1496 1591 1! Side Effects: 
3: 1497 1238 1! 
; 1498 1595 1! If ony of the logical block number or the count force us to generate an 
3; 1499 1594 1! invalid address, we will issue a diagnostic and select on of the following 
\3 1500 1595 1! actions. 
; 1501 1398 1} 
3 138 1230 : : If prompting, disregard the last entry and prompt for more input. 
3; 1504 1599 1! If processing blocks from the command Line, the severity will be set 
3; 1505 1600 1! to FATAL, resulting in termination of the analysis. 
3; 1506 1601 1! 
3; 1507 1oR8 1 !e-- 
; 1508 160 BEGIN 
3; 1509 1604 LOCAL 
3; 1510 1605 status; 
3 1511 1606 
3 1512 1607 status = TRUE; ! Assume address is ok. 
3; 1513 1608 : 
3 1514 1609 IF .lbn GTR .bad$gl_maxblock - 1 ! Is this a valid Lbn? 
3 1515 1610 THEN : 
5 1216 + oF status = addr_error (logical_blk, .lbn); 
3; 1518 1818 IF .cnt NEQ 0 ' Should we consider the count? 
3 3 1614 THEN ' Yes. 
; 1520 1615 IF .lbn + .cnt GIR .bad$gl_maxblock - 1 ' Does the count push 
; 1521 1918 THEN ! us off the end of the 
3 13 § 161 status = addr_error (count, .cnt); ! media. 
3; 15 1618 
3: 1524 1619 RETURN .status; 
: 136? 1620 
3: 1526 1621 1 END; ! of ROUTINE val_log_adr 
000C 00000 VAL_LOG_ADR: 

50 1 9.00002 AON bave Ra GRE : 1007 

| 51 0000G CF it eg $009 SUBL3 #1, BADSGL_MAXBLOCK, R1 : 1609 


PSs earns 
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; Routine Size: 63 bytes, 


; 1527 1622 1 
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4 23:37:46 VAX-11 Bliss-32 v4.0- 
& $F:82'5 DISKSVMSMASTER: (BAD 

MPL N, RI 

es 

PUSHAB LOGICAL_BLK 

CALLS # ADDR_ERROR 

cra, aS 

ADDL LBN, R2, R3 

SUBL3 #1, BADSGL_MAXBLOCK, R1 
CMPL ~=saR3. RI 

BLEG 

Bs Flue 

CALLS £2. ADDR_ERROR 


7% p 
DSRCIBADINIT.B32:1° (25) 
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Analyze/Media Initialization Module 15-Sep-1984 $3: 3776 VAX=-11 BLiss-32 he Fhget Page 61 
addr_error -=- Address error handler 14-Sep-1984 11:54:2 DISKSVMSMASTER:CBAD.SRCJBADINIT.B32;1 (26) 
1623 1 ZSBTTL ‘addr_error -- Address error handler’ 


ROUTINE addr_error (desc, val) = 
i 
! Functional Description: 


There is an error in the address specification, inform the user of the 
problem area. 


! Side Effects: 
If prompting, disregard the Last entry and prompt for more input. 


it precess ing blocks from the command Line, the severity will be set 
° 


i 
i 
i 
i 

' 

i 
i 
i 
} ATAL, resulting in termination of the analysis. 
le 


EGIN 
bad$gb_term_count = 0; Reset the term count. 


If bad$str_trim NEQ 0 
THEN bad$str_trim (bad$ga_input_desc); 


If we are stand alone, trim the string 
of trailing blanks, tabs and carriage return. 


ene 


OONAVUE WN $0 ODBNOAUES WN" OOONOU Ewin OOO 


SIGNAL (IF aor fy context Cctx_v_interactive] If the user is interactively entering 
T ad$_Tvblk 


a kd dd dt td 


= FOROROPOPOROROROPOROPURONONOPONONONY = = a 
@ 


' 

HEN b num i bad blocks, reject this entry. 

LSE badS_ivblknum + STSSK_SEVERE, ! Otherwise, stop the analysis here. 

° ! Three pieces of information... 
65 bad$ga_input_desc, ! The current input spec, 
65 desc, ' the part of the bad block spec out of range, 
$2 eval); ! and the offending value. 
65 IF bad$str_trim NEQ 0 ! Restore the buffer size if we are stand alone. 
$° THEN bad$ga_input_desc Cdsc$w_length] = bad$k_input_len; 
$e RETURN FALSE; 
65 END; ! of ROUTINE addr_error 


000C 00000 ADDR_ERROR: 
WORD 


‘ Save R2,R3 : 1624 
53 00006 CF 9€ 0000 MOVAB BADSGA_INPUT_DESC, R3 : 
00006 CF 94 0000 CLRB = BAD$GB-TERM_COUNT : 1641 
50 000G CF 9E 000 MOVAB BADS$STR_TRIA, RO > 1643 
3 D4 0001 CLR R 3 
o 01 TSTL R 3 
yong Sock : 
§ DD 0018 PUSHL R > 1644 
00006 cf 01 FB Oot, CALLS #1, BADSSTR_TRIM ; 
t 04 AC 7D OOO1F 18: MOVa DESC, -(SP) > 1651 
DD 000 3 PUSHL R : 1646 
DD 000 PUSHL # ; 
08 00006 CF E1 00027 BBC #5, BADSGL_CONTEXT, 2% ; 


De Se Be Be Se Be Be Be Se Se Se Be Se Se Se Se Se Se Se Se Se Se Bee Be Se Se Se Se we Se Se Se we Oe Se Se Se Se Oe Se oe Se Se Se SH Se Se ee SH Se SH Se ee ee ae 


5 
BACINIT Analyze/Media Initialization Module bes 1984 23:37:4 VAX-11 Bliss-32 V4.0-74 P 2 
oOL 000 addr error e= Address error handler 1h-8ep-19 4 7:85 DISKSVMSMASTER: (BAD. SRC BADINIT.B32:1° 7 (265 
000000006 8F PUSHL #BADS_IVBLKNUM : 
000000006 &F DD a: ale «Bares. Iver mes : 1648 
000000006 5 Fe 0 ; $: cA LS #5, LIBSSIGNAL : 1646 
63 84 «BF 004 MOVZBW #132, BADSGA_INPUT_DESC + 1655 
0 D4 00049 4s: CLRL = RO + 1657 
4 00048 RET + 1659 


; Routine Size: 76 bytes, Routine Base: SCODE$S + 0904 


; 1366 1660 1 
3 156 1661 1 END ! of MODULE badinit 
; 1568 1662 0 ELUDOM 


-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 


SPLITS 340 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
_LIBSKEYOS Q NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
LIBSSTATES 194 NOVEC,NOWRT, RD, ME, SHR, LCL, REL, CON, PIC,ALIGN(1) 

SCODES 2384 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, peek od Bird bet f 
SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

5 Library Statistics 

: few ecece ymbols wane Pages Processing 

$ File Total Loaded Percent Mapped Time 

: _$255$DUA28: SYSLIBIL 18.1 5251 18619 29 0 1000 00:01.5 

3; _$255$DUA28:CSYSLIBJTPAMAC.L32;1 42 7 64 14 00:00.1 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:BADINIT/OBJ=OBJ$:BADINIT MSRC$:BADINI T/UPDATE=(ENHS$:BADINIT) 

3: Size: 2384 code + 550 data bytes 

3; Run Time: 8 :38.7 

3; Elapsed Time: 755. 

3 Lines/CPU Min: 579 

3 Lexemes/CPU-Min: 57142 


a 
<m i 


Sete Se Ge Se Ge Ge Se Ge ee 


5 
BADIN Analyze/Media Initialization Module 1b-s2 -1984 23:37:40 VAX-11 Bliss-32 v4.0-742 P 63 
rivet addr error -- Address error handler , cup? 


Use 326 
: | ee tenplete’ 


=e Eee eee: O_O 
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